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'e¢ 
FACILITY: Screen Management 


ABSTRACT: 

The procedures in this module output the betty hee Contained 
in vircuel displays, using the peppings ae Bindows defined via the 
pees’ —— to pas eboirds. Also include in this module are procedures 

mize decisions about what needs to fe output, and how to output 
t e most optimal fashion. 
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# Be Se Ge Se Se Se Se Ss Se Se Se Be Se Os Se Os Ss Se Oe Ss Se Se Se Ss Se Se Ss Se Se Ss Ss SH Se ee 


contents of the virtual Me splays themselves are aoeeneteea by 

er ocomures in SMGSDISPLA i: ANGE. The routines in module 

ae fons Y_ INPUT ane nput operations wiht respect to virtual 
splays. 


, al ek et et ae 


NOUS Wty O Co 


ENVIRONMENT: ‘ser mode, Shared Library routines. 
AUTHOR: R. Reichert, CREATION DATE: 27-Jan-1983 
MODIFIED BY: 


1-001 = Original. Skeleton for future c RKR 27-Jan-1983 
1-803 - Fur her development. RKR i oes 


cc ce ce ec ce ce ee we ee ce ce ee ce ce ce ce ee ee ce ee ee ee ee eed eed 
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SPGSRISPLAY_OUT SMGSDISPLAY_OUTPUT = Output Virtual Displays B-yan-1985 ¢]: $349 Leer deeaeSsucb ison B32:1 Page af 


: 1! 1- - Correct n ye tur $ and macros. 15-Mar-1983 : 
3 3 1! 1-883 = Add SRGSELUSH H BUEFER? S$FLU H BY FER and MGSCONTROL MODE, ; 
PS 1! Dele oe 3A NAGLE Buf F R aad SAGSOISABLE_BUFFER. 3 
; 6) 1! RKR 17-Mar-198 3 
; 2 i } 1-368 ad einer ty tweaks to se cennents. | per BEM ar-1983. : 
>; 64 1} I< - Make FILL WINDOW BUFFER adie. to ‘soils oe Khe that gent H 
: 65 1! correspond exactly fo the w windgy bu bu RKR 28-Mar- H 
:. = 1! 1- = More debugg! ng : uA ove -" . 
3; 6 1! I- = Add some gode ng Site Goin” “14 7 “APR-1983. : 
: 8668 1! 1- - Add code for sabeks Serders. RKR 7-APR-198 5 
3 9 1 ! 1-011 = Separate bits mee r borders. RKR 15-APR-1983, : 
3 4 ! 1-01 = Seve iT nina. update 19 to its own module along with buffering : 
3 ! uf 3 
eS. 1! 1-013 - Update per en buffer ae minimal update is enabled. ; 
Sat - 1! Use sympot is ogee’ for mode bits. ; 
3 74 2. 2 STAN I-May- : 
ze 1 ! 1-014 = Cle oer r wce. text and oper tbuse veenat at. beginning of ; 
3 6 1! 4G Sritt WINDOW BUFFER. RKR $ 
> 1 ! 1-015 = Fix doublé-dot bug in SMGSCON MODE. : 
ee ¢-} 1! emove call SM sSconstRuct "BORDER. CHAR. 3 
; #79 2 STAN 2-May-1 : 
: 0 1 ! 1-016 = Flush output when batchi ng.en ; 
; 1 ; : wey AN’ Soha retyrns for SK sno: DISPLAY_UPDATE. : 
3 ; 1! 1-017 Camskee Sverhaul of CHECK_FOR_OUTPUT_DCB, CHECK_FOR_OUTPUT_PBCB, 3 
3 1! and FILL_WINDOW_ BUFF ; 
: 5 1! Remove SwAet9 083, the obsolete code yeaa from prior edits. : 
: 1! le 3 
3 Hi 1! 1-018 Lega up too ends from last edit. move ; 
; 1! snes > STRUCT. BORDER CHAR. RKR bonnes 3 3 
3 34 1! 1-019 ¥aOCtLUb redrawing of window buf ty by making use of ; 
; 1! v_oc hag bit, RKR 6-MAY-19 é 
: 91 1} 1-020 Ada Feo 1-019. ; 
: 4 1% Set > K.. cal od cursor position to ag posttten : 
; F 1! corresponding to the sopicas cursor pyeresee ; 
; 94 1! last virtual 95 splay th ost fhe user reference 3 
s 9 1: Thus phys cal cursor tion has absolutely nothing 3 
; 38 : : 5 POU order the displays are pasted in. ; 
: 9B 11 1-021 Write Sata are DISPLAY. ; 
: 99 i TAN Lay pa : 
5 190 1! 1-022 Add optimized move for conti uoy source and destination in 3 
3 18 ! ; snes ILL Le L-¥ANpOW. BUFFER and SMGSSCHECK_FOR_OUTPUT_OCB. : 
; 108 1! 1-023 lores REPAINT_SCREEN te repaint the screen even though it did 3 
; 1! not think the. ggreen changed. : 
: 105 1! STAN nooner 3 
3 7 1! 1-024 Fix Draw Border oe problos with border element overwriting s 
3 : ! : cel 130A, hes, yiéee attributes. : 
: 1 1/1 -025 Take advante of sizes available in OCB, WCB and PP. No : 
3 119 : ; Longer ne od 55" multiply number of rows by number of cols. : 
; M6 ! ; 1 -026 Repeckage "innermost subroutines to allow usage by input : 
: ' rt rou Ss. : 
2 ana 1i BR RS aarctoas: : 


SPGSRISPLAY_OUT SMGSDISPLAY_OUTPUT = Output Virtual Displays b-Jan-1985 $3338 :49 cnet Ah Ht aS eNesl son B32: 1 Page as 


! 1-027 ade iG SHpSREGIN, EOSTEBOARD. UPDATE and SMGSEND_PASTEBOARD_UPDATE. 


1-028 con 8 ate ¢ 0 Pa senten FOR _OUTPUT_PBCB with respect to no 
pests B9,,pack 
1-029 As. CHECK_FOR OUTPUT -PBCB. Check for no pasting packets is 
RER oF way-1983. 
1-030 Delete references to external DD_ structures and counts -- 
no tates neede 
pert ita HB 5°" SMGSRING_BELL == add display_id argument. 


1-031 yy cote. re yd oe -DISPLAY_UPDATE and END_DISPLAY_UPDATE to 
back R2¥nat ene, g e OCBs. 


1- | HAR. 
032 Yate TIMES by reference to STRSDUPL_C 


1-033 Add code to calc, what pert of WCB buffers got chenged and 
Oy Ae info in PBCB for output routines to use. 


1-034 Allow RING B ‘ "to return SS$ NORMAL if no error occurs. 
1-035 Ren gst to PBCB_W_WIDTH. 


1-036 Add some Bul (et pr gort ny to routine calls that don't check 
pret a, wits $ IN.RECT into SMGSSPOINT_IN_RECT_R3. 


1-037 Rate DRAW "BORDER affect the record of what area of the 
w nege contret block buffer was modified. 
RKR 9-JUN-19 


1-038 Make SMGSEND DISPLAY sUPoare ertore PRISMATEN Tndfcates 


—o 
_— 


> 


VIEW —OOONOUVUES WO 0OrNOu 


constan reclculat ion P_MISMATCH in gate that 
the SMGSDISPLAY_LINK $" ose evatd n't do it at the time the 
change occurr cause the display was batched. 


RKR 17*JUN-1 
1-039 In CHECK_FOR OUTPUT DCB rearrange inner | to check for 
asteboard bitching and to u use action code to decide whether 
He Ey =D ISPt USPL AL UPDATE. pass action code to CHECK_FOR_OUTPUT_DCB. 
1-040 Fix ioeer > terredueed in last edit. Advancement to next PP must 


WOUND UNE WH" O OONOUS WOO 


RK 2h unis outer loop, but not inside inner Loop. 
1-041 §$ TEXT_TO_WINDOW_BUF moving alternate 
character se set aa aMts Oe own Tncr cep inate f checking 
alternate character set 20 in he n main loop. 


1-042 Aye of SMGSSMOVE_TEXT_TO_BUF. 


-043 snecten up SMGSSEND DISPLAY guPoate to recognize situ tions, where 
Trees tton gut to Fedraw the affected pes steboard bu from 
ie bing t ts “= rather than just the display that had its 
c 


1-044 Re e hunt} CRE A from the EXTERNAL declaration so that SCRSHR 
Renove, not + uric the SMGSHR shareable inage t tegu (eeg8s 
1-045 Add logic toa map A, t ne characteristic vector or, ier : 


Wit 


ee a em ce a a me ee a ae ee ee ee a a nd a ed = wd od ws 2 
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ao At Ante Ay tt tthe at AOE Ny Se CP eo ae ey ae Pe ah ee Nr a 
SSS SSF ERIS SSNS SSSLSSFEALS PEW OOONA NEW "OOOO 


cc ce ce a ce em a cls ee ee ee ec ee ee ae ed ed ae et ed ed od 


ee a ed ed aed dd nd od 2 od = od = = dd 
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ee a aed ed ad od od od dd dd dd = 2 wd 
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et at at a a = = 2 2 = 2s 2s S 2s 2 to 
cc ce ce cc ee ec ce ec ce a cc ce ee ce ee ee ee ee a Be a ed od od = od 
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Be Se Se Se Se Se Se Se Se Se Se Se Fe Se Se Fe Ge Se Se Ge Se Ge Fe Se Ge Ge Fe Ss Ge Ge Ss Ge Se Se Se Ge Ge Ge Se BF Se Se Se Se Se Se SF Se Ss 4 Se FH Ss Se Se Sees 
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POPOMOPONONINONIND 2 2 oo 


fe gon- #:SB:19 — Fhentebussacssmens sous .es2; 1 Pore as 
gper tions 


i 9 JUL-1983. 
' 1-046 Add pessoa SMGSFIND_ CURSOR DISPLAY. Calc. waren virtual 
‘ dis a y Pthat ties physical Cursor is in any). 

& 


;: K 
! 1-047 ae te ve. TERT. 10M WINDOW _BUF to accomodate double-wide 


hae oot etiatzaton t to sets eNecK FOR_OUTPUT_DCB to treat functions 
@ the cursor position as a special case. 


' me fc Nie’ a ; 

' 1-048 § 1-Aug- a8. Round right rather tha left when pasting a 
: chomeal dis Lay fe ro e = Bune 

i 1-049 F a one er. pos tionin . 

: Fix p laces where irae cha anges. r 33°" “Last_changed_row’’ 

! orl computed, RKR 1 sep 

i 1-050 Further xes | in SMGSSMOVE Tex 10 *Eitioow _BUF wrt DWOH. 


: 1-051 F n sachs SDRAY BORDER to make berger ga ghets come out right 
! AK. Dau BORDER RER 7=SEP 

! 1-052 Lab om aed 8° ick up wad tion bits for border 

! labels. 

' 1-053 Allow C¢ ARSSCREEN ee mode. STAN 24-SEP-1983. 

: Check d aay revee s by name rather than by number 

! 1-054 Fix, MOVE _TEXT_TO_W TNDOW BUFFER to remap border elements when 
there is a transition from normal to DWOH or vice versa. 

nen tieot aint clears Line characteristics.) 


H =19 
: Iq “833 Fix ny DER for DHDW. RKR 12-OCT-1983. 
56 ae lace critial loop by a SKPC in SHGSSMOVE_ TEXT_TO_WINDOW_BUF . 


: <NOV= 
! 1-057 Changes to SMGSSDRAW_BORDER and SMGSSMOVE_TEXT_TO WINDOW BUF 
-” we O spec one mapping for DW/DWDOH if device doesn't 
r 


! RK 0 -19 
! 1-058 Make SMG CHECK. _FOR_OUTPUT Bat initialize WCB CWCB_A_CHAR_SET_BUF) 
$ f one exists. —RKR” 28-NOV=1 
! 1-059 Make SMGSBEGIN_DISPLAY UPDATE ¢ all SMGSSDUPL gVIRTUAL DISPLAY 
' unconditionally. SMGSSDUPL VIRTUAL DISPLAY flow has Ehe smarts to 
decide whether a pew ocB eas to be created or whether only current 
aoe nee 93. ye Be preserved in an already-existing backup DCB. 
! eS int fuse, sinner routine en ee and 

ot a END Pa ani _UPDATE_R 


i 1-061 Use new wv rout ne SMGSSUPDATE_PHYSICAL_CURSOR to fix physical cursor 
positto in Br et pelea path through 
$ cHECK. 


RAR 1S-DECTIOBS. 


1-062 F No DISALA UPDATE. It was returning garbage if the batching 
tevel ers 198 ates 
i 1-063 Fix D/ whe roblems in SMGSSPOINT_IN _RECT_R3 and in 
sms Bris aa change yaeet to SMGSSPOINT_IA_RECT_R3. 
Fix BORDER for soegs were S vieguet disple y is: 
»). Wi if Sea. pasteboard and paste or meget? e col and 
). Higher than pasteboard and aeeeed at 0 or negative row 


1-064 


—n 
as = 


PRGAQISMLAY_ovT smcsoiseLar_outeuT = outout virtual Displays SoilocI995 #134834 YAR=TT OLtaE=H uti fe74 oxz;1 8 Gy} 


3 1! R2 n-1984 
; ' 1-065 we nite ate DER abandon attempt raw border altogether if none 
: } raat as splay maps onto the v 31 le part of the pasteboard. 
: i4 aCHAR AT Pays RKR 28-F EB-1984. 
3 i ' 4 Es hove cite Pett fo file om mati: B32. a ay Phar 138¢: 
3 74% e NOTAB S bit and CLEAR, SCREEN. 
3 1! il. (“se ubl : entry pe Prt sRck NVALIDATE DISPLAY.” 
3 1! 1-069 fh ai Tahar set's anged to output Wntead 
3 : : } of erconeou Ay telling output hat the ole display changed. 
: 240 40 1 | 1-070 Make hor 4 tal borders knock down DHDW character ic. ASTAN 17-Jun-1984. 
$2) yi 1-971 FI Pint sree ONTROL DE to allow notabs bit. ('3h-Jun=1984 
: 26 og 1! 1-072 Ti ghten up sone cons stency checks on + strustores It wa 
: 26 45 1! possible to a 3 ndless loop ohite “walking the pasting packet 
5 44 44 1! chain. PLL tin - 
3001 PLL107 4 : 
1! 


1-073 Another $n" to SMGSCONTROL_MODE to look at all unused bits. PLL 


00g PLL107 <6 
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; 
s 
5 
; 
é 
; 
5 


Se 


RSBTTL *Declarations’ 
SWITCHES: 


LINKAGES: 


LINKAGE 
POINT _IN_RECT_LINK = JSB ( REGI 
eS abl 
NOTUSED (4, 


INCLUDE FILES 
REQUIRE "RTLIN:SMGPROLOG.REQ’; 
t 


TABLE OF CONTENTS: 


FORWARD ROUTINE 
! Public entry points: 
SMGSBEGIN_DISPLAY_UPDATE, 


SMGSBEGIN_PASTEBOARD_UPDATE, 
SMGSCONTROL _MODE , 


SMGSEND_DISPLAY_UPDATE, 
SMGSEND_PASTEBOARD_UPDATE, 
SMGSF IND_CURSOR_DISPLAY, 


SMGSGET_CHAR_AT_PHYSICAL_CURSOR, 


SMGSINVALIDATE_DISPLAY, 
SMGSREPAINT_SCREEN, 


ec ee ed eed ed od ed 


SMGSRING_ BELL, 


al all - Output Virtual Displays 


= 0, REGISTER = 1, 
-7,8,9,10,11); 


' Return char at physical cursor 
! Location 


SosdnctOHs 214g YaNeHY BLinsctz yesge72 Page : 


REGISTER = 2) : 


defines psects, macros, tcb, 
web, & terminal symbols 


Advance bufferirg level count for 
a virtual display 


yee buffering level count for 
@ pasteboard 


Control operational modes 


Decr. buffering level ie ae 
and flush to screen 
reaches zero. 


Decr. rote ben B woees 
for a best board, 
screen t 4 Ray 0. 


Find the display 
contains the ore 6 
cursor position ( 


= to 


~ ‘ine 


Mark contents of display as unknown. 
Repaint the entire screen the 
yey our apernes database says 


Ring bell 


~—v 
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! Private entry points: 


SMGSSBEGIN_PASTEBOARD_UPDATE_R1 : SAGSSBEGIN, PB uppaTes LNK 
Inner BEGIR_PASTEBOARD_UPDATE 


SMGSSCHECK_FOR_OUTPUT_DCB, ! Check to see if a virtual 
zrepeey needs to be flushed to 


SMGSSCHECK_FOR_OUTPUT_PBCB, ' Refresh everything on this 
; cpeneest == triggered by 
! an unpaste. 


Move border characters into 
! wCB text buffer. 


—* > te te 4) “a ss 


BNOAFWN “OOO VNOU Fw Oo 


SMGSSDRAW_BORDER, 


SMGSSEND_PASTEBOARD_UFDATE_R2 : SAGSSEND _PBD UeOATESL 
Inner END_PASTEBOARD_UPDATE 


' FILL the window buffer 
; ovens ee with @ pasteboard 


SMGSSF ILL _WINDOW_BUFFER, 
: mages of the virtual 


; vt hel ben, that map into it. 

: ! WCB window buffers. 

§ SMGSSOCCLUDE, ! Check whether two rectangular 
! areas occlude each other. 


SMGSSPOINT_IN_RECT_R3 : POINT_IN_RECT_LINK; ! Petyrne codes 
indicating where a 
given point is with 
respect to a given 
rectangular area. 


as tt 


NOUS Ut ONO UF WO 


EXTERNAL REFERENCES 
EXTERNAL 
PBD_L_COUNT, ! Nc. of pasteboards we currently have 


PBD_A_PBCB : VECTOR fPao K_MAX_PB, LONG), 
Tablé of” ah, “of PBCA’s 


PBD_V_PB_AVAIL : BITVECTOR CPBD_K_MAX 
! Bit vector or ak 2, SO id numbers in use. 


wr 


EXTERNAL LITERAL 


ce a a ea a ed ed od 
- 


5 _BATSTIPRO, ' Success; but batching is still in progress. 
So onl yh ' Success; but petchy was already 
' Success; but Boreh was already on 
~PATEARCIG, ' Fatal error in Library procedure 


SMGSSMOVE _TEXT_TO_WINDOW_BUF, ! move text from DCB buffers to 
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1 439 1 cINVCOR ! Invalid ok pom yp 
§ 44 be ! Invalid ms BS ae 

44 ~INVOIS - ! Invalid virtual a1 atspl ay id 

44 =1NV pee AS. ! Invalid pasteboard 

ret Ow; ! Invalid row number 

445 EXTERNAL INE 

rey, ST kOL ISH, ! ysed to establish a handler 

4 tf IBstR E_VA, ! Dea Locate heap storage 

44 L18 JA, ' Allocate heap st stor ge 

4 LIBSSF FREE} DD ' Free a dynam ring 

4 L18$S1G_TO-REf, Handler © turn Signals into return 

4 rnseurl L_CHAR ! Make a string of N copies of a byte. 

ne DUPC_VIRTUAL_DISPLAY, | Make @ copy of a DCB with a new 


' reper “Fenaining buffered output 
} yess SMG that user has 
ue yten into this display . his own. 
} mal update output rout 
; oe a str etas: pasteboard device 
; Regalc. PP "Ne ds after batching level 
ted on a D 
Update BAe, cursor position 


SMGSS$FLUSH_BUFFER 
ee _DIsPLay, 


Sngs$0U 

Ree “PP -FIELDS, 

SMGSSUPDATE _PHYSICAL_CURSOR; 
! <BLF /PAGE> 
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SMGSBEGIN_DISPLAY_UPDATE = Begin batch of updat 2-0ct-19 SAGRTL BUGSRCSSMGD SOUT .B32: (3) 


: 3 465 1 XSBTTL ‘SMGSBEGIN DISPLAY_UPDATE - Begin batch of ypestes to display’ 
; 34 7 GLOBAL ROUTINE SMGSHEGIN_BISPLAY_UPDATE ( DISPLAY_ID ) = 

; 31 468 | i FUNCTIONAL DESCRIPTION: 

: 38 470 1! Disable why this virtual Steph oy to the screen until the 
; Be of) : matching call to SMGSEND_DISPLAY_UPDATE is encountered. 

; % bers | i CALLING SEQUENCE: 

; 39 474 1! 

; 98 475 1 | ret_status.wic.v = SMGSBEGIN_DISPLAY_UPDATE ( DISPLAY_ID.rl.r) 
: 490 0c? i FORMAL PARAMETERS: 

: 49 479 1: DISPLAY_ID.rl.r Display id of virtual display. 

: 404 04681 1 | IMPLICIT INPUTS: 

; 4605 04682 1! 

Pee Be pea 

; 408 Oe 5 ; IMPLICIT OUTPUTS: 

Ho Bi 

; sig 0489 i COMPLETION STATUS: 

: 414 0491 1: SS$_NORMAL Normal successful completion, batching has been 
: 415 0492 1! initiated 

; 616 0495 1! SMG$_BATWAS_ON Success, but note that batching was already on 
3 re} Bees : SMGS_INVDIS_ID Invalid Display Id 

: 419 04696 1 | SIDE EFFECTS: 

; 420 0497 1! 

: 421 0498 1! NONE 

eS A 

: 434 501 > «BEGIN 

: 425 206 LOCAL 

; 426 050 DCB : REF BLOCK C,BYTE); ! Addr of display control block 
oo BRE. 

: : , 0306 Check for right number of arguments. 

; 431 308 " $SMGSVALIDATE_ARGCOUNT ( 1, 1); 

: 4 5 510 SSMGSGET_DCB (.DISPLAY_ID, DCB); ' Get DCB address 

: 4 5 313 '¢ 

: 4 218 i Increment count of number of SMGSEND_DISPLAY_UPDATE calls we need to 
; 4 514 ! see before we resume outputing from Ehis virtual display. 

: 4 515 ! Let the user know what the prey ‘ous state of batching was by 

3 rt 218 : our status return (in case he's interested). 

: 441 i DCB CDCB_L_BATCH_LEVEL) = .0CB COCB_L_BATCH_LEVEL) + 1; 

; 46 30 IF .DCB COCB_L_BATCH_LEVEL) EQL 1 

3 464 521 THEN 


8 a 


er 


RETURN SMG$_BATWAS_ON 
END; ! End of routine SMGSBEGIN_DISPLAY_UPDATE 


ao 
oo 


-TITLE SMGSDISPLAY_OUTPUT SMGSDISPLAY_OUTPUT = Output 
: Virtual Displays 
-IDENT \1-073\ 


-EXTRN PBD_L_COUNT, PBD_A PBCB 
-EXTRN PBD-V"PB_AVAIL, SMG$_BATSTIPRO 
-EXTRN SMGS_SATQASOFF, SMGS"BATWAS_ON 


SMGSDISPLAY_OUT SMGSDISPLAY_OUTPUT = Output Virtual Displays b-san-t9 § 21:49:46 AX-11 Bliss-32 v4.0-742 Page 10 $F 
eoRs SMGSBEGIN_ TSPLAY UPDATE. = Begin batch ef yodat Sa 93:83:49 SMGRTL BUSERCISMGDs S007 .B32:1 ’ RY 19 
> 445 BEGIN ! Begin of batching operation 3 
; 44 82 : LOCAL ° whee 3 
: 44 B 4 STATUS ! Status of subroutine calls $ 
: tts é 5 PP : REF BLOCK C,BYTE); ! Addr of a pasting packet ; 
: 450 03 3 1+ ; 
; 451 3 ! Make a copy of current DCB and leave its address in the $ 
: te 2 2 backup pointer field of the current DCB. 3 
: 454 O53) 4 iF NOT (STATUS = SMGSSDUPL_VIRTUAL_DISPLAY ( ; 
s 655 5 ¢ 4 ° ' Addr of curr. s 
; $2 82 4 DCB COCB_A_BACKUP_DCBJ)) ! Where new 3 
; 4 4 4 ! get stored. : 
; 4458 0535 THEN ; 
3; 459 05 $ RETURN (.STATUS); F 
ts 0538 \s 
> 46 0539 i walk chain of all pasteboards that we are pasted to and for : 
; 46 p2e0 ' each encountered, in the affected pest ing packet, set the 3 
3: 464 541 ' back pointer to the DCB to be the new OCB we've created. 3 
> 465 Bee8 ! This causes all mapping operations to reference the backed up : 
; 466 054 : DCB as the source of images for the screen. This is the : 
; 467 0544 : desired action since the current DCB is undergoing changes 3 
; 468 0545 ! which should not yet find their way to the screen -- its F 
: 298 Beco } batched. : 
: 47 0848 PP = .DCB CDCB_A_PP_NEXT); : 
> 47 0550 IF .PP EQL 0 : 
3 4746 0551 H r 
; 475 6226 RETURN (SMGS_FATERRLIB); ' should never be 0 $ 
3 rts Beez ! (points to self when empty) 3 
: 478 0535 WHILE PP NEQ DCB CDCB_A_PP_NEXT) ! While any remain ; 
: 480 gee9 r BEGIN : 
; 481 0558 4 PP CPP_A_DCB_ADDR] = .0CB CDOCB_A_BACKUP_DCBI; 5 
; ‘3 8223 4 PP = .PP°CPP"A_NEXT_OCBJ; ! Stép to next packet 3 
; 484 se RETURN °SS$_NORMAL; ; 
ae 56 END ! Begin of batching operation ; 
; 289 564 ° dine 3 
: 4 263 ELSE ; 
: 490 3 ; 
: 5 F 


SMGEDISPLAY_OUT SMGEDISPLAY QUTPUT = Output Virtual Display Besant ‘4 AX=11 Bliss-3 p 1 
658 MGSBEGIN_DISPLAY.UPDATE’= Begin batch pf undat Sadete1oae f2iteiis — Lemorte duesacismcdy sous .032:1 age ft) 


~EXTRN sng FAT RALIG, MG$_INVARG 
eEXTRN snes IN veo > ere IWODIS Jp 
~EXTRN SM sacs 

eEXTRN LIBSE Waa TSH FR i oa 
sEXTRN LIBSGET -¥R. BSSF nib Bo 
oBATRN B$SIG-TO_R STR DUPL CHAR 
sEXTRN SMG DUP VIRTUAL _DISPLAY 

+ BXIBN SMGS$$FLUSA_BU 

sEXTRN SMG INVAL TDATE cADISPL AL 
sEXTRN SMG N_UPD 

“EXTRN ene SUBDATE- perce CURSOR 
e ta) L. 

w EXTEN aes: WRONUMARG 


«PSECT _SMGSCODE,NOWRT, SHR, PIC,2 


0004 ENTRY SHGSBEGIN. DISPLAY_UPDATE, Save R2 : 
SE 4 g 0 SUBL2 #4 : 
01 ft 0 CMPB (ab) ; 
1 BEQL ; 
50 000000006 8F oo OA ROVE #SMGS_WRONUMARG, RO 
50 04 i D0 le 1$: MOVL DISPLAY_ID ; 
04 aC 8 DI 00016 cmPL we, SOISPLAY_ID ; 
" A | 1D CPB (RO), #17 ; 
50 000000006 gf Q 3 2s: ROVL #SMGS_INVDIS_ID, RO 
6 04 BC 06 B 3S: MOVL § @DISPLAY_ID, DCB : 
6— D F MOVL B, RO ; 
1¢ AO OD INCL (Ro) : 
01 1C A } cnet (RO), #1 
40 A i PUSHAB 64(RO) : 
04 AE OF PUSHAB p : 
000000006 0 03 i CALLS Hee he VIRTUAL_DISPLAY 
1 6F D MOVL p : 
0 20 Al Ov (RI), P : 
50 000000006 af i MOVL rp tials RO 3 
53 20 «Al 4$: MOVAB 32(R1), R2 : 
30 : CMPL » R2 ; 
AB BEQL 3 
10 a0 40 Al OD MOVL 64(R1), 16(PP) : 
5 60 p A MOVL (PP), PP : 
FD ; BRB $ : 
50 v0 F S$: ROVL #i, RO : 
50 000000006 8F Bo § 6$: ROVE #SMG$_BATWAS_ON, RO ; 
; Routine Size: 123 bytes, Routine Base: _SMGSCODE + 0000 


8 
” PLAY_OUT SMGSDISPLAY_OUTPUT = Output Virtual Displays b-san-19 5 21:49:46 AX-11 Bliss=-32 V4.0-742 
pngsgis SMGSBEGIN.DISPLAYUPDATE. = Begin batch et vodat met Fi $5:63 340 SNGRTL BUGERCTSNCDy SOUT .832:1 


; 493 0570 1 !<BLF/PAGE> 


row 


Fea een our ee E RESTA PROTEBOARD CPERTE “beats Biteheye  Reeanctays $biee ig Hee ea ieeneehtaysoct.es2:1 Page 13 
DATE = 
BOARD.U 


obi?" deren ¢ of Updates to pasteboard' 


> 495 1 XSBTTL 'SMGSBEGIN_PASTEBOARD ; 
486 1 GLOBAL ROUTINE. SRGSBEGIN_PASTEB 
i 498 4 1 { FUNCTIONAL DESCRIPTION: ; 
: 500 7% 61! Disable toting this peste oard to the screen until the : 
H 83 f ! matching call to SMGSEND_ EBOARD. UPDAT is encountered. : 
3 3 | | CALLING SEQUENCE: 
3 5 1 ret_status.wlc.v = SMGSBEGIN_PASTEBOARD_UPDATE ( PBID.rl.r) ; 
; 0 ; § | FORMAL PARAMETERS: 
: 09 > aa PBID.rl.r Pasteboard id. : 
; 510 $ 72% : 
; i 287 { IMPLICIT INPUTS: 3 
: 18 5891 | NONE : 
: 514 590 1! 3 
; \3 29) | IMPLICIT OUTPUTS: : 
i. Bei] = : 
; 19 295 { COMPLETION STATUS: : 
: 1 299 1! SS$_NORMAL Normal successful completion, batching has been : 
: : 298 1! initiated : 
3 5 77 SMG$_BATWAS_ON Success, but note that batching was already on 3 
; : 600 | SMGS_INVPAS_ID Invalid Pasteboard Id ; 
i $26 g ] | SIDE EFrects: 
; 8 1 NONE ; 
; 5 : — ; 
> 531 BEGIN : 
3 § 0. LOCAL 3 
3 : PBCB : REF BLOCK C,BYTE); ! Addr of pasteboard control biock : 
; 5 1 '¢ : 
3 ois j Chock for right number of arguments. ‘ : 
3 1 SSMGSVALIDATE_ARGCOUNT ( 1, 1); : 
i 340 if SSMGSGET_PBCB (.PBID, PBCB); ! Get PBCB address ; 
; ; 8 RETURN (SMGSSBEGIN_PASTEBOARD_UPDATE_R1 (.PBCB)); ! Do work in inner routine : 
: 544 20 END; ! End of routine SMGSBEGIN_PASTEBOARD_UPDATE : 


01 Phas | 60000 anne FRESOCSIN_PASTEBOARD UPDATE . Save nothing FRE 


8 
ERGAQTSPLATAOUT smegDL SrA QUEUE QBERYE V'gtunl Biseleyy . HcstectREs qh4ge4Q Yat}, OL4e4532 44,0274 e321 8 ly 


yn 


BEQ 1$ : 
50 000000006 gf 06 ; Rov #SMGS$_WRONUMARG, RO : 

50 04 1$: Ov ¥ RO + 0616 
000000006 00 p} 90015 CHL PBD_L_COUNT : 
08 000000006 EO 0001 BBS PBD_V_PB_AVA ; 
98 000000006 &F p é 28: ROVL Pehcs” IRVPAS: 1D, Ihe : ; 
50 0000000060040 0 3$: MOVL A. PBCBCRO] : 

0000v 0 BSBW SMCSSBECIN. PAS TEBDARD _UPDATE_R1 + 061 
4 RET $ $638 


; Routine Size: 58 bytes, Routine Base: _SMGSCODE + 0078 


; 545 0621 1 !<BLF/PAGE> 
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PLAY OUTPUT = Output Virtual Displa 


y 8 
DISPLAY UPDATE © End borcheot aodates t Boberatone Veieeste YONGRTL BUSSReTsMGby SOUT 832; 1 


ZSBITL ‘SMGSEND_DISPLAY vepeTs = End batch of updates to display’ 
GLOBAL ROUTINE SMGSEND_BISPLAY_UPDATE ( DISPLAY_ID ) = 


i FUNCTIONAL DESCRIPTION: 
Reduce the number of calls to SMGSEND rahe sat ad that will 
be needed before we resume outputing from this d199 Ts If 
snis call nenkes this count go to zero, flush the display to 
f the level is oireaty 0, we return a success status 
nforming caller that the batching Lovet was already 0, 
but we otherwise allow this. This g 
method of ending batching. 
CALLING SEQUENCE: 
ret_status.wic.v = SMGSEND_DISPLAY_UPDATE ( DISPLAY_ID.rl.r) 
FORMAL PARAMETERS: 
DISPLAY_ID.ri.r 
IMPLICIT INPUTS: 
DCB COCB_L_BATCH_LEVELJ 
IMPLICIT OUTPUTS: 
DCB CDCB_L_BATCH_LEVEL] gets decremented 


COMPLETION STATUS: 


ves a user a guaranteed 


Display id of virtual display. 


SS$_NORMAL Normal successful gonp let ten 
SMGS_BATSTIPRO Success; but batching is still in progress. 
SMGS_INVDIS_ID Invalid D splay Id 

SMGS_BATWASOFF Success; but batching was already off 


SIDE EFFECTS: 


treacle ieee deed te ed dt tt tte te tr te te te ee eee 


NONE 
BEGIN 
LOCAL 
STATUS ! Status to return : 
DCB : REF BLOCK C.BYTE); ! Addr of display controi block 


'¢ 
: Check for right number of arguments. 
SSMGSVALIDATE_ARGCOUNT ( 1, 1); 
SSMGSGET_DCB (.DISPLAY_ID, DCB); ! Get DCB address 
'¢ 


i If current count is greater than 1, siaply reduce it by one and 
! return to caller. If it {s one, reduce to zero and cause the 


Page 3B 


“oe 


ISPLAY_OUT ane DISPLAY OUTPUT tput Virtual Displays bese Jan-1 14 AX-11 Bliss-3 P 
rn MOSEND. DISPLAY LPDATE e bna Cote h og eo kars. . Sagenntgas 2:49:40 YSMGRTL BuceReIsMCbySOUy.832;1 age 18 
3 part urrent contents of this window to be flushed to the screen (if need 

ie 


{ew -DCB COCB_L_BATCH_LEVEL] GTR 1 


—+--4-4.2.9- 9-9-3; 


“BEGIN 

DCB COCB_L_BATCH LJ = .0CB COCB Lo “ty LEVEL] = 

STATUS ¢ AGS TBATS! YER RO; OK, but batching a, Still in 
END oregress 


PEAS AAO 
uw 


ELSE 
ai ! Level is currently 0 or 1 
BATCH_STATUS; 


BATCH_STATUS = SS$_NO 
IF .0CB COCB_L BaTtH. teveca Ea. 0 


N 
ae ( SMGS$_BATWASOFF) ! Ok, but batching was already off 


; 

2 BEGIN ! Reduction from 1 to 0 

r : REF SPP_DECL; ! Addr of a pasting packet 
? 0CB COCB_L_BATCH_LEVEL) = 0; 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
‘i, 
4 
4 
; 
4 
4 
4 
& 
4 
é 
4 
4 


roo 


COOOL 


Sn a a as st os tt 


2:2; 


PC 


NOYVEUN (OODONOUE 


i valk chain of Ptnvotved, to aes we are pasted. for each 

i oe packet mde 4 n the Free of 

; | pecs ef > to the or gin nal DCB since it is now ee ° 

atch 59 hy By pops can be mapped to the scr 

| Fete Ue dono HA ocate the bac chup ocs. {ne essunption 

1s that, { the: cat r batched th $ virtual d splay once, 
likely yh do : ‘ ain. ae Sovee us having to 
5 Sool tesane te tien St ave to y other 
j _ SOSSOUPL “VIRTUAL ISPLAY when he sterts patching again. 


= .DCB COCB_A_PP_NEXT); 


nvolved, set the 


PAARL AAAA AA AAA AAA AIS AAO 


SSSSSSESsesssses 


Mun 
NO ABP SO OONAUS WN O 


ae a et od 


PP EQL 0 
RETURN (SMGS_FATERRLIB); ! should never be 0 
WHILE .PP NEQ DCB COCB_A_PP_NEXT] ! While any remain... 


If . 
THEN 


IIISII ISS 


PE OOO VOUS wh 


0 
BEG 
PP tPP f p~Ebe- ADDR] = psp: ! To ort. ocB 
feos PP~A_NEXT _b¢B ! To next packet 


'¢ 

i 1f DCB_V -PP_MISMATCH is set, a change has been made to 

i this ote” which requires the Re pasting pe packet Ganstents ¢ be 
i recoleu ated. mapever. 5 B was ‘datched’’ at the time 
i the change took piece oee, a do the pasting packet update 
i now as part of the un batch ng process. 


arene 
oc 


Se Din Dip ip Mi i ey ee De te ee ee ee ee 


MFM 


3 


“_-o 


van 


ergee tsPuar.. OUT SMGSDISPLAY OUTPUT = puteyt Virtual Displays $-Jan no 1387 qh: $3 #9 AX-11 Bliss 


atSshe Page Y? 
mt DISPLAY_UPDAT End batch of upda os t 2-0ct-1 SMGRTL.BUGS 2$sheotsou -832;1 (5) 


pound 
a? 


3 1 & 3 
; 666 4 iF .DCB CDCB_V_PP_MISMATCH] ; 
; : "BEGIN ! Unbatching clean up 3 
i 666 CURR.PP : REF SPP_DECL; ! Addr of a pasting packet ; 
; ree IF NOT (STATUS = SMGSSRECALC_PP_FIELDS (.DCB)) ; 
3 99? ite H 3 
3 of ot? RETURN (.STATUS); ‘ 
i 6% t DCB COCB_V_PP_MISMATCH] = 0 ; ! Knock down flag ; 
: 674 749 '+ ; 
; 675 7 ince DCB aa PP_MISMATCH was set, the change te. the DCB $ 
; 676 751 i included dimensional changes. fhis means we will have ; 
3; 67 7 § ! to remap the whole pasteboard buffer from the bottom ; 
; of8 f ? ie outward -- for each pasteboard that we are pasted to. : 
: 680 755 CURR_PP = .DCB COCB_A_PP_NEXT); ; 
3; 681 7 § 3 
3 oes f IF .CURR_PP EQL 0 : 
; 684 739 RETURN (SMGS_FATERRLIB); = ! should never be 0 : 
; ose 761 WHILE .CURR_PP NEQ DCB COCB_A.PP_NEXT! 
; ose 765 6 BEGIN ! For all pasteboards : 
; 68 764 6 1.OCAL 

; 690 765 6 PBCB : REF SPBCB_DECL; ! Addr of a pesteboard 

: 4! i ? i control block 

: 69 768 6 PBCB = .CURR_PP CPP_A_PBCB_ADDR); 

; O96 , yf 1F NOT (STATOS = SMGSSCHECR_FOR_OUTPUT_PBCB (.PBCB)) 

: 69% 44 6 RETURN (.STATUS); ! Quit on first failure 

; 698 718 CURR_PP = “CURR. PP CPP_A_NEXT_DCBJ; ! To next packet 

: 344 a END; ! For all pasteboards 

: 701 276 RETURN ($S$_NORMAL) ; 

3 A § a END ! UAbatching clean up 

: 2 re 4 ELSE 

; 705 7 9 4 

3 g g REGIN ! No cleanup needed 

: 7 7 : i Call Veryirtual” FOR_ mg DCB to cause the contents 

a. 7 i + . reual “disp e flushed to the screen. 

; 710 785 i wt ls, then re we ts status as our status. 

3 711 7 i if epee fails, th then return our previously 

: ne f . calcu sted status. 

: 714 7 STATUS = SMGSSCHECK_FOR <Outeyr megs B (.DCB 

> 715 7 END_DISPLAY_UPDATE); 

: ay 79 IF oSTATYS THEN STATUS= BATCH wart $ 

: 71 792 4 END; No cleanup needed 


gilt OuT SneSENS. 


>> > 
Wie 


Y_OUTPUT = Output Virtual Displays 
TSPray PUPDATE« 4 . 


End batch of Updates t Btn 


END; 

END; ' Level is 

RETURN (.STATUS); 
END; 


Reduction from 1 to 0 
currently 0 or 1 


001 
01 i 
50 000000006 &F 00 
50 4 BC DO 
0% ac Ad D1 00 
11 AS 7 t 
50 000000006 oF p t 
52 BC 00 00 
0 a 9 4! 
1c AS oF 00K 
50 000000006 8F BO 
54 0) 0 \ 
a: 
50 000000006 BF pO D 
AZ D4 00 
51 cj 09 
3 ; 
10 Al 0d Oo 
51 61 
34 OA 3 f 
000000006 99 tS 
34 OC« 
5 20 A 
50 000000006 &F 
20 
i= 3 
51 A 
31 
0000v CF 1 F 


=Jan-1 


a a Ph er oh or 


! End of routine SMGSEND_DISPLAY_UPDATE 


oresene DISPLAY_UPDATE, Save R2,R3,R4 


, at 
#SMGS$_WRONUMARG, RO 


DISPLAY_1D 
(RO), SbISPLAY. ID 


(RO), #17 
BSMGS_INVDIS_ID, RO 
ISPLAY -10. pcB 
pt 
#SMG$_BATSTIPRO, STATUS 
BATCH_STATUS 
spipee) 


#SMG$_BATWASOFF, RO 
(DCB) 
(DCB), PP 
(0c), R3 
PP, R 
DCB, 16(PP) 
a PP 
52(D¢B), 11% 


sthtte teh PP_FIELDS 


Ary toca) 
HH . CURR_PP 


@SMGS_FATERRLIB, RO 
32(0¢8), RI 
R_PP, Rt 


(CURR_PP), PBCB 


#1, SMGSSCHECK_FOR_OUTPUT_?BCB 


Pee Se Se Se Oe Oe Se Oe Se Se Se Se Se Se Se Se Se Se Se Se Be Be Be Se Ss Se Se Se Se Se Se Se Se Se Se Be Se Sete Bete Se Ge Ge Ge Se 


SPLAY_UPDAT 


3§ 
50 
0000v 


; 723 0798 1 !<BLF/PAGE> 


SPGSRISPLAY. OuT snaepisriat OUTPUT = fs iea boleh ot 
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; Routine Size: 187 bytes, Routine Base: _SMGSCODE + 0085 


a St Leth a sheb 1 SOUT .32;1 


BLBC STAT us 
MOVL (CURR, bp}? ,cunn_pP 
BRA 
VL 1, RO 
RET 
PUSHL #29 


PUSHE 0 a 
CALL He, SHGSSCHECK. FOR_OUTPUT_DCB 
paren Seratus, STATUS 


wt 


5 ttl ata 


VEO OOnOu 


a i i Re ie ee | 


SRRPASAEYPRINS BMT ESTYAL RSH Stace ERRTCANE § 


nen Gndn cn Geananana 
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$3:40 AX-11 Bliss-3 
End batch o “Oct-1 : SMGRTL .BUGSRC 


ZSBTTL ‘SMGSEND_PASTEBOARD_UPDATE batch of updates to pasteboard' 
GLOBAL ROUTINE SHOSEND PASTEBOARD UPDATE t PoID 9% 


| FUNCTIONAL DESCRIPTION: 
Reduce the n r of calls to SMGSEND trance ARD_UPDATE that will 
be needed before we resume outputing Ff rge th $ pasteboard. 
epee cent 6 makes this count go to zero, flush the pasteboard to 
¢ 
f the level is gt 0, we return a success status 
nforming caller that the batching level was already 0, 
t we other se allow this. This gives a user a guaranteed 
method of ending batching. 
CALLING SEQUENCE: 
ret_status.wic.v = SMGSEND_PASTEBOARD_UPDATE ( PBID.ri.r) 
FORMAL PARAMETERS: 
PBID.rl.r Pasteboard id. 
IMPLICIT INPUTS: 
PBCB (PBCB_L_BATCH_LEVEL) 
IMPLICIT OUTPUTS: 
PBCB CPBCB_L_BATCH_LEVEL] gets decremented 
COMPLETION STATUS: 
$s$ Normal successful Letion 
SneS BATS TIPRO Succ cogs: but batching is still in progress. 
SMGS_ PNVBAS ei Invalid Pasteboard 
SMGS_BATWASOFF Success: but batching was already off 
SIDE EFFECTS: 


tte te ee ed ed eh te te te te te te te ee te 


BEGIN 
LOCAL 
STATUS, ' Status to return 
PBCB : REF BLOCK (BYTE); ! Addr of pasteboard control block 
'e 
: Check for right number of arguments. 
'  $SMGSVALIDATE_ARGCOUNT ( 1, 1); 
SSMGSGET_PBCB (.PBID, PBCB); ! Get PBCB address 
RETURN (SMGSSEND_PASTEBOARD_UPDATE_R2 (.PBCB)); ! Do work in inner routine 


END; ! End of routine SAGSEND_PASTEBOARD_UPDATE 


syst .B32;1 —_ z| 


SMGSDISPLAY_OUT SMGSDISPLAY_OUTPUT - | i -Jan- 
Pat J LAY_OUTPU oy tpu ut Virtual D splays a Jan-1 


SMGSEND_PASTEBOARD_U = End batch of update 


01 6s 
50 000000006 6&F 


50 04 18: 
000000006 00 } 
shes 8 000000006 8F bp 28: 
50 000000006004 3$: 
ih 


; Routine Size: 58 bytes, Routine Base: _SMGSCODE + 0170 


; 782 0856 1 !<BLF/PAGE> 


“Oct-1 


AX-11 Bliss 


be f2:8813 — ESMeat! 


SRSSENG PASTEBOARD_UPDATE, Save R2 


, at 


1$ 
#SMG$_WRONUMARG, RO 


ID, RO 


+ PBD_L_ COUNT 
PBD _V “10 ko 3$ 


#SAG$_IRVPAS~1 


PBD A PBCBCRO) 
SMGSSEND_PASTE 


Boars. _UPDATE_R2 


Gussne dished! SOUT 832; 1 


roe 


“oy 


9 
SMGSDISPLAY_OUT SMGSDISPLAY OUTPUT = Output Virtual Displays B-san-t § 21:49:46 AX-11 Bliss-32 V4.0-742 Page 22 
iors SMGSF IND_CURSOR_DISPLAY : Find which virtual di meet $3:93:99 SMGRTL BUGSRCISMGDI SOU .B32; 1 . 5 


$S$_NORMAL Normal successful completion 
SMGS_INVPAS_ID Invalid pasteboard i 
SMGS$_WRONUMARG Wrong number of arguments 


' SIDE EFFECTS: 


o wa 

SSF 3 
ts ee ue 

WrN-2O w 


> 786 7 1 ZSBTTL ‘SMGSFIND Seon PI SELAY = Find which virtual display contains physical cursor’ 3 | 
: 785 8 1 GLOBAL ROUTINE SAGS$FIND-CURSOR_DISPLAY ( 3 | 
ota § 1 PASTEBOARD_ID, 3 | 
3; ff 60 1 DISPLAY_ID 3] 
; 788 61 1 = 3 1 
: 789 6¢ 1 !46 1 
: rey o FUNCTIONAL DESCRIPTION: ; 
: 79 65 1 This routine determines which virtual eVep ley contains the 3) 
Eee 0 r¢) 1! current physical cursor on the screen. The pasted virtual : 
: 796 or 3 displays are searched from the deepest pasted one to the $ 
: 795 re: 1! outer-most pasted one. The outer-most virtual display that 3 | 
3 re 69 1! encompasses the physical cursor is the one selected and its $ 
; ad 0 ty } display id is returned. : } 
: 799 8 1 2 It is possible that no virtual display contains the cursor, 3) 
; 800 0875 1! in which case a display id of zero (an invalid display id) is 3 | 
. $9) pore ! returned. : 
: 803 087% | CALLING SEQUENCE: i 
; 805 0878 1: ret_status.wic.v = SMGSFIND_CURSOR DISPLAY ( g 
; 806 0879 1! PASTEBOARD_ID.rl.r, : | 
: rit tt] 1 | DISPLAY_ID.wi.r) : 
: at 088¢ | FORMAL PARAMETERS: 1 
> B11 O8B4 ee PASTEROARD_ID.rl.r Address of a longword containing the 

; aig 8 5 3% pasteboard_id fer the device for which 

; si3 os : the information is desired. 

: He tt: 1! DISPLAY_ID.wl.r Address of a longword to receive the 

3 aig 0889 1! virtual display_id of the virtual 

; 61 0890 1! display which contains the cursor. 

; 818 0891 1! The outer-most pasted virtual display 

; 819 6898 1! that contains the cursor is selected. 

: 0 0893 1! If no virtual qt spt ey can be found, 

: 1 0894 1! a display id of 0 ( an invalid display 

3 § 0895 1! id) is supplied. 

eT 

; ; 5 O88 | IMPLICIT INPUTS: 

: 2 1: NONE 

: 828 1 i 

3 9 § ' : IMPLICIT OUTPUTS: 

; 831 NONE 

; § : COMPLETION STATUS: 

1} 

; . 3 

: 1: 

: 1: 

; 1: 

: 1! 
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838 _CURSOR_DISPLAY = Find which virtuat di meet $3:83:78 SMGRTL .BUGSRC JSMGDISOUT.832;1 . ra Ls 
84) ' NONE 
4 lee 
4 BEGIN 
44 LOCAL 
re PBCB : REF SPBCB_DECL, ! Address of pasteboard control block 
th WCB : REF SWCB_DECL, ! Address of window control block 
49 PP; ! An address pointing at the PP queue 
50 ! header in a pasting packet. This 
51 ! address is not the base of the 
28 “ ! pasting packet. 
ze Check for right number of arguments. 
23 SSMGSVALIDATE_ARGCOUNT ( 2, 2); 
58 '¢ 
2 Get address of pasteboard control block and the WCB that goes with it. 
6) SSMGSGET pec) ( ,PASTEBOARD_ID, PBCB ); 
¢ wCB = .PBCB [PBCB_A_WCB); ~. 
86 
864 


'¢ 
Set up an answer of none in case search turns up nothing. 
" DISPLAY_ID = 0; 
16 
' Search all the posting packets for this pasteboard, from the deepest- 
! pasted one to the outer-most pasted one. for each such pasting 
! packet, see if the physical cursor position lies inside the 
! mapping of the associated virtual eiepiey. For each yyrsual display 
! found, set up output parameter. The last one found (if any) will be 
the one the caller sees. 
' PP = ,PBCB CPBCB_A_PP_PREV]; ! Start with inner-most pasted one 
Ad a EQL 0 
RETURN (SMGS_FATERRLIB); ! should never be 0 
ya -PP NEQ PBCB CPBCB_A_PP_NEXT) 
oreie ! For all pasting packets 
PP_BASE : REF SPP_DECL; ! Base address of a pasting 
! packet 
PP_BASE = .PP = PP_PBCB_QUEUE_OFFSET; 
iF ag PP BASE CPP_W_ROWS_TO_MOVE) NEQ 0 
BEGIN ! Projects somewhere on visible pasteooard 


LOCAL 
D_PROJ : BLOCK (8,BYTE); ! Representation of virtual 
! display's projection on 


SAESRISPLAY OUT 


908 


338 
Oo 


ODOODDODODOOOOO 
AYVEUN —OOONOUFS WN —O0O@ 


PUPRIPUIPIR 2 — st tt 


OO0000 


rors 


, HMHES gheB4D panel ob ings 


Save candidate 


SMGSDISPLAY_OUTPUT = Out rtual Displays 
SMGSF IND_CURSOR_DISPLAY yrty ch virtual d 
44 ; ! pasteboard. 
318 Q D.PROJ CDOCB_W_ROW_ START] = .PP_BASE CPP_W_FIRST -¥CB_ROW); 
975 4 D_PROJ CDCB_W_NO_ROWS] = .PP_BASE [PP_W_LAST_WCB_ROW] - 
378 ? -PP"BASE CPP_W_FIRST_WCB_ROW] +1; 
3f8 Q D_PROJ CDCB_W_COL_START] = .PP_BASE CPP_W_FIRST_WCB_COL); 
9 9 4 D.PROJ COCB_W_NO_COLS] = .PP_BASE CPP_W_LAST_WCB_COL) - 
3 ri -PP-BASE CPP_W-FIRST -WCB_COL) +1; 
& '¢ 
984 4 i Check to see if cursor Lies within projection of this 
, 5 : a virtual display. 
9 ° 4 if SMGSSPOINT_IN_RECT_R3S ute ht .OLD_CUR -foL. 
9 3 4 eur he = CUR_ROW 
9 q& B° “BROS 
990 4 THEN 
944 ¢ -DISPLAY_ID = .PP_BASE se theta } 
0998 END; ! Projects somewhere on visible pasteboard 
995 PP = .PP BASE CPP_A_PREV_PBCB) ; ! To next outer pasting 
208 END; T For all pasting packets 
998 RETURN (SS$_NORMAL); 
0999 END; ! Routine SMGSFIND_CURSOR_DISPLAY 


5 08 
0 08 
50 000000006 8F 
50 04 of 


: 
8 000000006 8F 


ooo 


50 000000006 eF 
56 55 
4F 


OOFC 00000 -ENTRY 


SMGSFIND_CURSOR_DISPLAY, Save R2,R3,R4,R5,- 


#SMGS_WRONUMARG, RO 
QPASTEBOARD_1D, RO 
. PBD_L_COUNT 


RO, PBD_V_PB_AVAIL 
#SAG$_IRVPAS-1D, Kg ° 


Pep AAPBCBCRO], PBCB 
8(PBCB), 

@DISPLAY_ 1b 

4(PBCB) ,“P 
#SMGS_FATERRLIB, RO 


PP, PBC 
6$ 


§sheo1sou -B32;1 


roe 
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0929 
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img8 * SMGSF IND_CURSOR_DISPLAY eur ind which virtust di ~pon= 1382 $4:93' 49 Yoncrte bueercismcysod -832;1 ° 3} 
F 
1 


54 8 AS 9 MOVAB =8(RS), PP_BASE 2 0% 
C Ai f ; Ist iP tat ; 9368 
; Qe & MOVW  47(PP_BASE), D_PROJ : 0973 
1 AG ‘c MOVZWL 49(PP-BASE) RO : 0976 
1 F ad é pitts 47 (PP BASE). R ; 
02 AE 1 A ADDWs «#1. ag D_PROJ+2 : 
04 Ar AQ BO MOV (PP_BASE), D_PROJ+4 : 0978 
AG ae 7 MOV (PP"BASE), RO + 0981 
1 Ad i ROVZuL 3 cP BASE), R1 
06 AE 01 al ADou$ a; 0. D PROU+6 ; noes 
¢ 24 A? 9E MOVAB Bacuces RI : 
0 6 A? MOVAB (WCB), RO + 0987 
0090v BSBW © SMGSSPO[NT_IN_RECT_R3 > 0988 
A a: ae 
08 Bf 10 Aa D § 97 MOVL  16(PP_BASE), @DISPLAY_ID + 0991 
OC A& DO 0009C S$: MOVL § 12(PP"BASE). PP : 0995 
AC 11 OOA BRB é > 095 
50 01 b0 A2 68: MOVL #1, RO : 099 
4 OOOA T 3 


; Routine Size. 166 bytes, Routine Base: _SMGSCODE + O1AA 


3; 927 1000 1 !<BLF/PAGE> 


LAY_OUTPUT = Output Virtual Displays boa Jan-1985 74 AX-11 Bliss-3 0-74 
ROL-MODE - Control overall node of oper -Oct- 32 tf HF t' SMGRTL .BUGSR 24 shee }so0 -B32;1 


ZSBITL ‘SMGSCONTROL_MODE = Congrol overall mode of operation’ 
GLOBAL ROUTINE SRGSTONTROL MODE ( z . 
Cos TBO ORD Bde. 


OLD “MODE mith 
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SPREE SPLAT OuT sneeeh 
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i FUNCTIONAL DESCRIPTION: 


This routine allows the caller to interrogate various modes 
of the overall operation of the SMG$ package, and to change 
those modes. Each pasteboard (hence device) has its own set 
of mode settings. 


; 
: 


The modes currently defined are: 


DWDOODOOOODOO0OO000000 


1. Use of buffers. Under normal operation, ae SMG$ 
package will output to the terminal as soon as it has 
determined what needs to be written. That is, no 
internal buffering will be done. This mode is the 
default because it requi ree no follow-up effort on the 
port or, me user to periodically force the buffer to the 
sor g bed reater efficiency of $010 usege can be 
hieved  onenh "9 uffering. In this mode, the SMG$ 
package bu but fers all of its ou put for ofthe ent usage of 
meget The caller can at any time cal 
SMGSFLUSH_BUFFER to force to the ~ Ae, any output which 
a been Queued ., mg etre n, A... not yet actually 
out put. or example, in th ; noc each input operation 
ated via the HGS facility will force a 
sncsr run BUFFER cal 


Default setting is to not provide buffering. 


SP a et at et et et 


SILSSSSSCCOLIOLS 
DONO ULS WOOD 


DAMMAM & 


; 
8 
; 


2. Minimal screen updste. Unless jczpt tetely told not 
to, the SMG$ package will try to minimize the number 
of characters og suecly sent to a terminal to increase 
overall system throughput. It achieves this in part by 
remember ing 9 yhet is poh vie on the screen and actually 
out uting only the specific sneres ier. sequences which 

Ll change the current contents of the screen g R8e the 
desired conten $ {cr the screen. As a result of this 
bbe he origi . lL sequence of changes tk get Da 

erve Gener ty. the egreen is not tee ed 

Poe ly the this "4 erence Coble stance the 
: sultant screen appears the de t A. ¥¥ In rare 


A pretty Ml per ey es s while d a new 
app at er may S. ; iehange. his 
ehavior to str ctly preserve ke order o S$ output. 


The default mode is to perform minimal eqreen update. 
pers. s currently not much difference you omit this 
bit be couse it really doesn't make much sense to repaint 
the entire screen =e you change just on character, 

but this may change in future re re 0 
you should always spec ity this b 


ee we oe ee eww folololololololololololololola lolol o) 
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SESSEEEE 


Sessssssses 
NOUS UN OO 
&- 
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ee r now, 
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WDODOOODOOOO 00000 
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zz 
oc 
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tothe sotto tee 
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VFA OOONOUS WOO 
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S38Sssssssss 


Wrh—OOo 
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cc ee ce cc ee a ce ec a a ee ee ee ee ec a ce ee a a eB ee ee ed a ed eed ed ed 4 


wm 


SRENLSSS 


ec a cc ce ec a cs ce ce ce ce Dc ce ce ee ee ee ee ce ee ee ee ee ee eed ee eed ed 


ee eB a a ee ae ed a ed ee ed od et 


ed eth we 
> 


pureut toneel’ Virt e! Displays B-san-1985 ¢: $3: #9 AX-11 Bliss- 


overall mode of oper 2-0ct- 


3. CLEAR_S REey, If this bit is set, then when SMG exits 
normally, if wi TUL clear the screen just before returning 


4. NOTABS. If this ty is set, then SMG will never rely 
on phys cal roe even if the terminal supports Por 

“eet a SMG will feel free to use phys sb 
tabs for the’ nimal update trae atop Such use mplicitly 
assumes that your terminal's b stops are set to 
DEC default locations. Set this f grou want to guarantee 
that toy product will run regard ess of the tab settings 
that the user has physically set on his terminal. 


The ve 7gerenesers are opt tonal. First, if OLD_MODE_BITS 

18 suaet ee s aoee n with the current noge b bit” gpetttngs. 
Secondly, if the NEW_MODE BITS parameter is provided, its 
contents. are seed to” aan the current mode(s) of coorieien 


Hence this routine can srpseest {ee used in three way. 
a). To find out curre He ngs: 
SNGSCONTROL MODE (¢ ekftiso RD_ID, , OLD_MODE_BITS) 


b). To set the bits a no 3 tH for their current setting: 
SMGSCONTROL_MODE ( PASTEBOARD_ID, NEW_MODE_BITS) 


c). To write modular code, s qving the current settings, 
setting them to your desir er setting. then restoring 
or lginel settin of before os : "8, your procedure: 


GSCONTROL_MODE ( NEW MODE ot 
MODE ner S$, saved_mode ubits ) 


and before e ng. 
SMGSCONTROL “Nabe PASTEBOARD 1D, saved_mode_bits ) 


CALLING SEQUENCE: 


ret _status.wlc.v = SMGSCONTROL_MODE ( fe Mat wos ID.rl.r, 
NEW E BITS. Fler). 
OLD “RODE “BITS.wl.rJ ) 
FORMAL PARAMETERS: 
PASTEBOARD_ID.ri.r The id of th Bag ob ey for which the 
modes are bet ng set or interrogated. 
NEW_MODE_BITS.rl.r setting onal). pi! po ate ag new mode 
cy ines to be eae 
bit set to orces that mode to b 


stati K. ait set to 0 inhibits that 


A SAGSK PBUF SENABL ED controls buffering. 
ps 1g shoule normally be set to improve 
m 


Bi Te SROEE RiNuPD pentrets minimal update and 
should 
Bit SMGSK ramen ft _SeREEN’ causes SMG to clear 


aeSshe 0-74 
SMGRTL .BUGSRCJSMGDISOUT.832;1 
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wa: SMGSCONTROLIMODE = Control overall mode otoper sadera19Re Tersests — Femante bdesacismebysods.e32-1 oe gf 
1 11 the screen upon normal exit. 
1 11 Bit SMGSK_NOTABS prevents SMG from relying 
1) on physical ta 
11 


t ° 
ALL remain ng bits must be zero to allow 
for expansion in the future. 


OLD_MODE_BITS.wl.r FOpt ional), If suppl ted will be filled 
n with mode sett ngs prior to this call. 
A bit set to preicetes ag he mode 


bit ser to ndicates 
that the mode was inhibited. 
Bit SMG St BNASLED ¢ ntrole buffering. 
t K-MINOPD controls minimal update. 
K_CLEAR_SCREEN causes SMG to clear 
creen upon normal exit. 


es 
t SMGSK_NO ns prevents use of physical tabs. 
L remaining bits will be zero to allow 


— 2 = 4 


PUP PWASISISISIVION & & 


SESSSSEESLSSLIGR GGA EE LES ER 


fr expansion in the future. 


IMPLICIT INPUTS: 


a hl ee ee en en ee en ee en ne ee ee ee ee 
ee ee Dc ce ce ce ee ce ce ce ee ce ee ce ce ce ce ce cl ce ee ce ce ee 
a cc a a ee ee De a ee a a ee ed ed ee S 


Se Se Se Se Ge Se Se Ge Ge Ss Ge Se Ge Ge Ge Ge Se Gs Ss Ss OF Ss Ss Os Ss Ss Os Se Se Ss Ss Ss Se SHSs Ss Ss Sess 


1 

1 

j 

1 

1 

1 

i 

1 

: 

: None 

: iB IMPLICIT OUTPUTS: 

\° , re. None 

1 ‘§ COMPLETION STATUS: 

1078 45 SS$_NORMAL Normal successful completion 
1074 Pr SMGS_INVARG Invalid arquement. Bits corresponding to 
1075 4 ynsupgerte functions supplied in NEW_MODE_BITS 
1978 $8 SMGS_INVPAS_ID Invalid pasteboard id. 

144 $3 SMGS_WRONUMARG Wrong number of arguments. 

: 79 51 SIDE EFFECTS: 

1081 2¢ NONE 

1082 54 + 
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a SREREONTROL RODE e CONTE RL Ovar ett mode seer SenettIORE FUSBiG2 = acl Olise 32 v4.74 .832;1 a ic 
3 1 5 BEGIN 
5 BUILTIN 
NULLPARAMETER; 
LOCAL 
PBCB : REF BLOCK C,BYTE); ! address of associated 


! pasteboard control block. 
SSMGSGET_PBCB ( .PASTEBOARD_ID, PBCB) ; ! Get address of PBCB 
14 : 
If caller requested current settings, return them. 
; IF NOT NULLPARAMETER (OLD_MODE_BITS) 


-OLD_MODE_BITS = .PBCB CPBCB_L_MODE_SETTINGS); 


'¢ 
: If caller provided new settings, process them. 


Ag NULLPARAMETER (NEW_MODE_BITS) 
BEGIN ! Caller provided new settings 
BIND NEW_MODE = .NEW_MODE_BITS : BITVECTOR(32); 


1+ 
First make sure that he didn't supply extraneous bits 


IF ( -NEW_MODE BITS) <4, 28> NEQ 0 
RETURN (SMG$_INVARG); ! Unsupported bits provided 


SINISE NNSA PAPA A AAA AMIN 
Wino 


VEN OS OONAOUE WN "OOONOUS 


SELESFANLS 


mk a a a ws 2 = as 2 8s SS 2 SS Ls — ds — 9 


00 


4, 1075 
'¢ 

! If he's switching from buffered to non-buffered, flush out 
current contents of buffers so we are caught up. 


if .PBCB CPBCB_V_BUF_ENABLED) AND ' If currently enabled 
NOT NEU RODECSMG K_BUF_ENABLED] | and new disabled 


SMGSSFLUSH_BUFFER ( .PBCB ); 


a tt Dad a 


We uwt— SBNPALI AOS GONG HMO 


‘+ 
! If he’s switching from no minimal update to minimal update, 
then ensure that the screen buffer is up-to-date. 


am a a dd od = = = = = = = SS 8 8 = = 2 


SSLESEALNLESS 


g if NOT .PBCB_CPBCB_V_MINUPD] AND ' If currently disabled 
THER TMS MODECSAG “AINUPD) ! and new enabled 
5 BEGIN ! update screen buffer 
BIND WCB = .PBCB CPBCB_A_wCB) : BLOCK C,BYTE); 


'¢ 
! Move the current text and attributes buffers 
! to the corresponding screen buffers. 


a mm em ec md ed et = = 2 = od od 


Be Se Se Se Se Se Se Se Ge Fe Ge Se Fe Se Se Ge Ge Ge Fe Se Se Fe SH Ge Se Ge Ge Ge Fe Se Se Se Ge Fe Ge Se Se Se Se Ss Ss Ss SF Se Se Ss Se Se SF Ss Se Se Se Se Sete 
cc em ce ce ce ec ce cc ce ce ce a ee ce ed ed nd oe =o 2 ed 
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BLBC ©=«-:12¢PBCB), 5$ 
BLBS  aNEW_MODE_BITS, 58 
PUSHL PBCB 


3 1141 1212 4 te 
£114 12013 4 
; 1108 1214 4 CHSMOVE(.WCB CWCB_L_BUFSIZEJ, .wCB CWCB_A_TEXT_ BUF), 
; 1382 ! 1g ; WCB EB h-ReR teeT words: nye OOP 
: 1146 1o17_ 4 CHSMOVE(.WCB CWCB_L_BUFSIZEJ, .WCB CWCB_A_ATTR_BUF), 
3 N47 | | ‘ WCB Ce ITAL MSH etal Dy; 
; W108 1 4 rs 
3; 1150 1221 4 ' Move the text Line characteristics vector to the screen 
3 1 1 : 5 2 text Line characteristics vector. 
:11 4 1 4 CHSMOVE(.WCB CWCB_W_NO_ROWS) +1, ,WCB CWCB_A_LINE_CHAR], 
; 1196 4 .WCB CWCBTA-SCR_LINE_CHAR}); 
:11 1 ND; 
1128 1555 END update screen buffer 
; 1138 1229 1+ 
: 1323 : » Finally, reset modes based on callers wishes. 
; 1161 é PBCB CPBCB_L_MODE_SETTINGS)] = ..NEW_MODE_BITS; 
: 1168 4 END; ! Caller provided new settings 
: 1165 1256 RETURN (SS$_NORMAL) ; 
: Wee 1238 END; ! Routine SMGSCONTROL_MODE 
-ENTRY SMGSCONTROL_MODE, Save P2,R3,R4,R5,R6,R7  ; 1008 
50 04 at p ROVE @PASTEBOARD-1D, RO ; 116 
000000006 00 : cHPL R » PBD_L_COUNT : 
08 000000006 BBS RO, PBD_V_PB_AVAIL, 2% : 
38 000000006 8F MOVL —#SHGS_IRVPAS=1D, RO : 
57 0000000060040 MOVL PBD A-POCBLROI, PBCB : 
3 C C APY, # : 1169 
A BL SSU : 
« a Nag : 
oc BC oc A MOVL (PBCB), @0LD_MODE_BITS > 1171 
6¢ CMPB AP), #2 : 1176 
LSSU ; 
08 ae aie aa : 
00 08 aC 1¢ i CRPZV HG, #28, QNEW_MODE BITS, #0 ; 1185 
50 000000006 8F MOVE #SMGS_INVARG, RO 3 1187 


B ow ES 


= ISPLAY_OuT anes? 


— 


WO OONOUS WTO 


eS AA Se te ry ee tee et ae 
wa 


SUS 


a ee ee ed od od od nd dd 


VO 


oO 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


cc ee ee ee ee ee ee ee ae ed ed ed 


9 


ASRLASAPYTSYEacAMEPREAE'SHUBLAD tag HURCAGEE GL:MREHO YMA Outase? 


ZSBTTL "SMGSINVA pare pisayer = Mark isolgy as being privately used’ 


GLOBAL ROUTINE S$ 


INVA DISPLAY ( D Y_1D) = 


+ 
: FUNCTIONAL DESCRIPTION: 


to a given virtual lay and the user had previously 
written into that display on his own, without using 
SMG routines. 

The virtual display must not be occluded. 


ach gested ard to which this display is pasted is isolated and 
ts window image must be redrawn. 


CALLING SEQUENCE: 

ret_status.wic.v = SMGSINVALIDATE_DISPLAY ( DISPLAY_ID.rl.r) 
FORMAL PARAMETERS: 

DISPLAY_ID.ri.r Display ID of virtual display. 
IMPLICIT INPUTS: 

NONE 
IMPLICIT OUTPUTS: 

NONE 
COMPLETION STATUS: 

SS$_NORMAL Normal successful completion 
SIDE EFFECTS: 

NONE 


This routine is celled when ever a change has begn completed 
{ 


§sheo) sou 032; 1 


ISPLAY_OUT SMGSDISPLAY UTPUT - Output Virtual Display 


an T:S8:79 — Eohcat busSacssncoysout 32; 1 


DISPLAY = Mark display as 


—~ 


EXTERNAL ROUTINE 
SMGSSINVALIDATE_DISPLAY; 


Paw AS) 


3 ! Status of subroutine calls 
5 Check for right number of arguments. 
SSMGSVALIDATE_ARGCOUNT ( 1, 
i catt the internal routine. 


RETURN SMGSSINVALIDATE_DISPLAY(.DISPLAY_ID) 
! End of routine SMGSINVALIDATE_DISPLAY 


aaa a a tk a at ts = = a = ss 
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; Routine Size: 


000000006 00 


SMGSINVALIDATE_DISPLAY, Save nothing 
(AP), #1 


@SMGS$_WRONUMARG, RO 
DISPLAY 1 
SMGSSINVALIDATE_DISPLAY 


SMGSDISPLAY OUT 
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1 ZSBTTL "SMGSGET_CHAR_AT_PHYSICAL_CURSOR = Get character at physical cursor’ 
GLOBAL ROUTINE ee ae s 


a aD a ee ee ee et ed th te te te te te te te ee ee eee ee 


SMGSGET_CHAR_AT_PRYSICAL_CURSOR ( 
PASTEBOARD_ID 


CHARACTER | REF VECTOR C,BYTE) 
= 


'ee 


FUNCTIONAL DESCRIPTION 


Returns the enorecter that occupies the position on the screen corresponding 
to the current physical cursor position. 


Note: If the SMG$ Hag st ity has not written to that location on one screen, 
then it doesn't know its contents. A character encoded as X'FF" will be 
returned in that case. 


If character returned has a value less than xX'20', then it is not an actual 
rintable character, but an internal terminal-independent code of what should 
e displayed at that position, e.g. an element of the Line-drawing character 

set. Do not attempt to use this code for subsequent output operations. 


CALLING SEQUENCE 
status.wic.v = SMGSGET_CHAR_AT_PHYSICAL_CURSOR ( 
PASTEBOARD_ID.rT.r, 
CHARACTER. wbu.r) 


FORMAL PARAMETERS 


PASTEBOARD_ID.ri.r Address of a Longuord containing the 
pasteboard_id for which the information is 
desired. 

CHARACTER. wbu.r Address of a byte to receive the result. 

IMPLICIT INPUTS: 
NONE 
IMPLCIT OUTPUTS: 
NONE 


COMPLETION STATUS: 


SSSNORMAL Normal successful completion 
SMG$_INVPAS_ID Invalid pasteboard 13° 
SMGS_UR G Wrong number of arguments 


SIDE EFFECTS: 


AL 
PBCB : REF S$PBCB_DECL, ! Address of pasteboard control block 
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0) MGSGET_CHAR_AT_PHYSICAL_CURSOR = Get charocter Set 1 #3; $8; 3 OMGRTL BUctRCIsMcdy SOUT. 832;1 ° 33 
; 1291 1359 WCB : REF $WCB_D ' ress of window control block 3 
3 1 3 1360 PTR : REF VECTOR pet Byte); ' og oh be to text buffer of what is ; 
3; 129 1361 i currently on the screen. 3 
: 1294 1 66 5 
+ 1598 titl SF teodh Sar Pie eho 
3 eck for r number of arguments. 5 
; 3 38 1365 le ° ° 3 
3 ! 38 ! ? SSMGSVALIDATE_ARGCOUNT (2, 2); 3 
; 1500 1368 '¢ 3 
: i 4 : 9 i ; Get address of pasteboard control block and of window control block. : 
3 3 08 1 i SSMGSGET Earache ‘. PASTEROARD.. 1D, PBCB); ; 
3; 1304 137 wCB = A_wCB); : 
: 1305 137 PTR = .WCB cuca. ‘ “SCR_TEXT_BuF J; 5 
3 1 ‘4 1374 3 
; 130 1375 '¢ § 
: 1308 1 ug i Fetch character at position corresponding to current actual physical cursor : 
3; 1309 137 i position on the screen. 3 
3; 1310 1378 ie 3 
3 1a] 1379 CHARACTER (0) = .PTR [ : 
2 3 \§ 1380 (.WCB CWCB_W_OLD_CUR_ROW] -1) * .WCB CWCB_W_NO_COLS] + 3 
: Iai ! 3] (.WCB CWCB-WUOLD-CUR-COLJ -1) ); : 
3 1315 1383 RETURN (SS$_NORMAL) ; 3 
3; 1316 1384 1 END; “t Rout ine SMGSGET_CHAR_AT_PHYSICAL_CURSOR : 
000¢ 00000 .ENTRY SMGSGET_CHAR_AT_PHYSICAL_CURSOR, Save R2,R3 ; 1308 3 
02 6c 91 0 CMPB (AP), #2 : : 
ge 2 8 BEQL 3 3 
50 000000006 F y OF ney #SMGS$_WRONUMARG, RO 3 : 
50 04 of 08 OF 18%: MOVL @PASTEBOARD_ID, RO 3 1371 ; 
1 i BLSS 3 3 
000000006 00 50 01 1 CMPL RO, PBD_L_COUNT 8 : 
14 1C BGTR 4 3 $ 
08 000000006 98 ee if BS RO, PBD_V_PB_AVAIL r 3 
000000006 &F BO 6 28: MOVL #SMG$_IRVPAS"1D, Kg > ; : 
000000 mar ) 3$ MOVL PBD_A peces nod. PBCB 3 3 
AO D MOVL (PBCB>, WwW 3 137? : 
A 8 A L (WCB), Pik : 1373 : 
1 My . cyt 2 (WCB), RI ; 1380 r 
3 06 =A Re 4 MOVIWL 6(WCB), R3 3 s 
1 5 3 8 MULL2 R353, RI : 3 
0 26 «OA 8 cvTu 38(wB), RO : 1381 : 
1 5 f ADDL RO, R 3 3 
08 aC FF AIG ; MOVE -1(R1)CPTRI, @CHARACTER : 1379 : 
0 B MOVL wi, RO ; 1383 3 
4 B RET ; 1584 : 


; Routine Size: 92 bytes, Routine Base: _SMGSCODE ¢ O2FE 
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MGSGET_CHAR_AT_PHYSICAL_CURSOR = Get character 2-0ct-1984 12:5 SMGRTL .BUGSRC smc S0Ur. 832;1 (12) 
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SMGSDISPLAY_OUT SMGSDISPLAY_OUTPUT = Output Virtual Displays . an-1985 21:49:4 AX-11 Bliss-32 V4.0-74 Pp 7 
ngs SMGSREPAINT_SCREEN = Repaint current screen - nets $3338: SMGRTL. BaeSsmeo SOUT .632;1 saat | 
1 ZSBTTL DROP SREPAINT Ag - Repetor current screen’ 
1 GLOBAL ROUTINE SMGSREPAINT_SCREEN ( 


PASTEBOARD 10 
= 


lee 


i FUNCTIONAL DESCRIPTION: 


This procedure will repaint the current screen opens on its 
roternes knowledge of what the screen should look Like, 

It is intended to be cai ied when it is known or suspected that 
some outside agent has disrupted the screen so that it no longer 
matches the in oral angulecge sf what should be on the screen. 
it pasteboard batching is in ef est. the repaint occurs 

rom the screen image; otherwise it occurs from the text image. 


CALLING SEQUENCE: 
ret_status.wic.v = SMGSREPAINT_ SCREEN ( PASTEBOARD_ID.rl.r ) 
FORMAL PARAMETERS: 


VEWN (OO ONOUS Ut O0W 


BBE EE FN AMNAMAA NAAN 


8 

9 PASTEBOARD_ID.rl.r Id of pasteboard scpoctates with 
r¢' physical screen to be repainted. 
*§ IMPLICIT INPUTS: 


Current internal representation of what should be on the screen. 
IMPLICIT OUTPUTS: 

NONE 
COMPLETION STATUS: 


OOOOCCOCOS CO OOOW 
NO AR GRA SSRIS AR WW LODE CIO DES ON 


me ot 


S$S$_NORMAL Normal successful completion 
SMGS_INVPAS_ID Invalid pasteboard control block 


SIDE EFFECTS: 


etree Red ted ed ed et tt et te te te te ee te ee 


! Window control block 
! Address of pasteboard control 
' block 


SSMGSGET_PBCB ( .PASTEBOARD_ID, PBCB); ! Get address of pasteboard 
! control block. 


L 
wCB : REF BLOCK BYTE. 
PBCB : REF BLOCK (,BYTEI; 


'¢ 
Get address of window control block. 


MEW" O OONOU SW O0O@ 


WCB = .PBCB (PBCB_A_wW(B); 


'¢ 
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28 = AG 
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3; Routine Size: 


SMG 
SM 


PR 
Do 
moe 


I 


wm 
>v 
za, 
=~ 
te 


Edel tel Se ek ek ek Se a tl tal al Se Sed tad 


PPA IIVIVIVIVI ES BELLE EE OC 


NAME AN (OOD NOU EW OOONOUL WP 


14 


ci a a a a ed od wd wd 2d dd dd dd 


SELLE ELE EE 
PAAAAAAD 


08 


00 


00 


98 bytes, 


| skeeeeeereeeeeee We have to add code here 


oO make 
: the repaint occur from the window buffer if batching is in effect. 
! PARRALAAALALALLLELE SESE E SEE 


CHSFILL(O,.WCB CWCB_L_BUFSIZE],.WCB CWCB_A_SCR_TEXT_BUF I); 
14 
Clear the Line characteristics vector. 


CHSFILL(O,.WCB CWCB_W_NO_COLSJ+1,.WCB CWCB_A_SCR_LINE_CHAR)); 


Tell the output routines that we've changed the whole WCB buffer. 


1: 

pace PBCB-W-LAST_ CHANGED Row) = ,PBCB CPBCB_B_ROWS); 
t-4 . 

PBCB CPBCB-W-LAST_CHANGED_COL) = .PBCB CPBCB_W_WIDTH]; 


RETURN (SMGSSMIN_UPD (.PBCB)); 
END; ! End of procedure SMGSREPAINT_SCREEN 


PBCB Peet Hat CHANGED ROW] = 


So 
So 


seyray SMGSREPAINT_SCREEN, Save R2,R3,R4,R5,R6,R7 


F 
50 04 Bt 06 MOV @PASTEBOARD-1D, RO 
1 BLSS 
000000006 00 : p} cRPL R » PBD_L_COUNT 
000000006 E BBS RO, PBD_V_PB_AVAIL, 28 
98 000000006 &F 69 MOVL #SMGS$_IRVPAS-1D, RO 
7 0000000060040 »D MOVL §PBD_A_PBCBCRO), PBCB 
HH 88 a9 00 MOVL 8(PBCB) wee 
bE * 9 ¢ movCS #0, (SPS, #0, 40(WCB), a20(wCB) 
50 06 A 3¢ MOV ZL 6<wcB), RO 
3 - 3 Be movcS *0, (SP), #0, RO, @48(WCB) 
AB C7 0 mOVw ot 168 (PBCB) 
AA C7 SFO MOVZ7BW 99 (PB ), 170(PBCB) 
AC (C7 01 8 MOV of] (Pace) 
AE C7 SA A? OB mOVW 90(PBCB), 174(PBCB) 
3 DD PUSHL pace 
000000006 00 1 FB cA LS #1, SMGSSMIN_UPD 


So 
w 
w 
a 


Routine Base: _SMGSCODE + 
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SCREEN = Repaint current acreen =300 138? $3383 349 SNGRTL BuUgERe SSMS SOUT .B32;1 ° as 
! Zero out the screen image, thereby forcing output to 
redraw the whole screen. 


7 
e 
. 
. 
. 
. 
7 
° 
. 
. 
. 
o 
° 
« 
. 
° 
. 
2 
© 
° 
° 
. 
. 
o 
. 
. 
. 
° 
. 
. 
. 
. 
. 
. 
. 
o 
. 
> 
> 
- 
” 
o 
. 
* 
. 
° 
. 
. 
. 
* 
+ 
a 
. 
° 
. 
° 
. 
ia 
. 
. 
” 
. 
. 
° 
. 
° 
. 
. 
. 
. 
o 
. 
o 
. 
° 
~ 
a 
. 
oe 
. 
2 
° 
° 
a 
. 
e 
. 
o 
° 
. 
° 
7 
° 
7 
° 
. 
o 
. 
e 
© 
a 
. 
° 
° 
. 
. 
° 
. 
. 
7 
. 


F 10 
ae ISPLAY_OUT ere SAT Ov OUTPUT = Output Virtual Displays 9-J 01-1985 $3768 60 AX-11 Bliss-3 


MGSREPAINT SCREEN = Repaint current screen 2-0 t-1984 SNGRTL BUGSRCISMGD I SOUT. B32;1 Page ie 
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ZSBTTL otinee Beit Ae & 
GLOBAL ROUTINE SAGSRING_ 


; 1403 


= 
, ae 
uw 


lee 
FUNCTIONAL DESCRIPTION: 
i this routine rings | he bell, on each physical L terminal to which 
© 9 yen virtua grep lay is is hs why: *he number of times 
ame fied. If TIMES omitted 
i CALLING SEQUENCE: 


ret_status.wlc.v = SMGSRING_BELL 


NNO 
VEN SO OCONOULSWIN—O”O 


is used. 


aed at aed ed a et So 


VEIN $9 ONO VE WN" OOONOUS WI "O0@W 


NNN 


i FORMAL PARAMETERS: 
DISPLAY_ID.rl.r The display id of the virtual display. 


TIMES. rl.r Optional. The number of times to ring the bell. 
If not specified, the beil is sounded once. 


Eek ek ed ee ee et ek et et et ee ed ed et 


NONE 
i IMPLICIT OUTPUTS: 
i NONE 
i COMPLETION STATUS: 
i $S$_NORMAL Normal successful completion 
Statuses returned by SMGSSOUTPUT o 
statuses or signal values returned “wy STRSDUPL_ CHAR. 
i SIDE EFFECTS: 


PEARLS SSLSSLANLESES 


PIII III III a a td dd dd 
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{ IMPLICIT INPUTS: 
' 
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i] 
a 
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BEGIN 
BUILTIN 
NULLPARAMETER ; 


BIND 
BELL_CHAR = UPLIT (BYTE (BELL)); 


LOCAL 
DCB : REF BLOCK C,BYTE), i¢ére ress of display control 


PP : REF BLOCK C,BYTE), ! Address of a pasting packet 


cc ce ce ee ee a ee ee ee ee ee ed ed ed ed 


PUPP DU DVIVDIV LIV LV SV DVLVSVSVSVSVSVSVSUSESI SIS SII EB BP PPL LEE 


a ch ec ce ee ee ee ec ee a ed ed ed ed od ed ed —s 
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a SRCERING BECO ee King Gute striae ae Pa et PS Po 20e 14) 
STATUS; ! Status to return to caller 
SSMGSVALIDATE_ARGCOUNT (1, 2): 


SSMGSGET_DCB (.DISPLAY_ID, DCB); ! Get addr of virtual display 
! control block. 


mh hed 
.-_> 


1460 
1 


a 

5 at at et ee 
PAAAO 
Mw 


STATUS=SS$_NORMAL ; 
Sgt rere Ten (TIMES) 
BEGIN ! No arg supplied, output 1 bell 


i Chase the chain of asteboards to which this virtual display 
S pasted. For each pasteboard located, output the bell. 


PP = .DCB CDCB_A_PP_NEXT); 
IF .PP EQL 0 

RETURN (SMG$S_FATERRLIB); ! should never be 0 
WHILE -PP NEQ DCB CDCB_A_PP_NEXTJ ! While any remain... 


o 
WIR UNIO Doe oe 
VFN OOONOUS 


ONAN NSAI NNN SIO OO 
Sy chet 
, at et ee 


STATUS=SMGSSOUTPUT ( .PP CPP_A_PBCB_ADDRI, 
BELL_CHAR); 
PP © PP CPP_A_NEXT_DCB]; ! Step to next packet 
END  °! No arg supplied, output 1 bell 
ELSE 
oreie ! Multiple bells 
CESCR : BLOCK (8, BYTE] ; ! A local descriptor 


S ab el ed nl kek te el ek ete ee et et et et et et ee 
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'¢ 

: meet build a string of TIMES bell characters. Use dynamic 

string. 

DESCR [DSC$W_LENGTH) = 0 ; 
Dst$k CLASs_p ; 

CSK_OTYPE_ 


= 
DSC$B_CLASS] = 3 
) = T¢§ 


SCSB-DTYPE ) 
DESCR CDSCSA_POINTER) = 0 ; 


LIBSESTABLISH ( LIBSSIG_TO_RET ) ; ! Cotept ish handler in case 
! STRSDUPL_CHAR signals out 

! from under us. 

IF NOT (STATUS = STRSDUPL_CHAR ( DESCR, . TIMES, BELL_CHAR)) 


RETURN (.STATUS ); 
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SNGSDISPLAY OUTPUT = Output Virtual Displays 
SMGSRING_BECL - Ring Belt —_ 
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50 


10 


! Chase the chain of pasteboards to which this virtual display 
S pasted. For each pasteboard located, output the beil(s). 


PP = .DCB CDCB_A_PP_NEXT); 
IF -PP EQL 0 

RETURN (SMG$_FATERRLIB); 
WHILE -PP NEQ DCB CDCB_A_PP_NEXT) 


! should never be 0 
! While any remain... 


BEGIN 
STATUS=SMGSSOUTPUT ( .PP 


CPP_A_PBCB_ADDR), 
-DESCR poSCeW-LENGTH) 
-DESCR COSCSA-POINTERS); 
Step to next packet 


PP = .PP CPP_A_NEXT_DCB]; ! 
END; 


oo yeah be DD ( DESCR ) ; ! Return dynamic string 


' Multiple berls 


RETURN (.STATUS); 
END; ! End of routine SMGSRING_BELL 


07 OO3BC P.AAA: .BYTE 7 


BELL _CHAR= P.AAA 
003¢ 900 .ENTRY SMGSRING BELL, Save R2,R3,R4,R5 

$$ 000000006 3 09 Rovag SMGSSOUTPUT,, &5 wo 
6¢ 00 SUBBS «#1, (AP), DIFF 

1 00 CMPB fe, wi 

8 00 BLEQU 

50 000000006 8F dh ROVL —ASMGS_WRONUMARG, RO 

50 0% Bc D 0010 18:  MOVL = @DISPLAY_ID,_RO 

06 BC 8 AD pt 00 CPL (RO), SDISPLAY_ID 

"1 44 Ap 9 0 CHPB (RO), #17 

50 000000006 BF DOSE 28 MOVE —SMGS_INVDIS_1D, RO 

3 04 BC 00 000% 38: ROVL @DISPLAY 1D, DCB 

d DC MOVL #1, STATOS 

2 § i) CMPB CAP), #2 

+4" OL $su s 
08 AC 3 004 TSTL = -8(AP) 
2 06 BNEG 
$2 20 8 0047 4s Ov. (DCB), PP 
50 20 AS 9F 90040 58: MOVAB  32(CB), RO 
52D CMPL OPP, R 


SJercl9hs GARD Mat OMaBGER MS OS2? oso 
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10 
$ ISPLAY_OUT SMGSDISPLAY OUTPUT = Output Virtual Displays B-dan-t 5 21:49:4 AX-11 Bliss-32 V4.0-74 Pa 4% 
wa SNGSRING_BECL - Ring Bell — ee TP! et Me eo ee oy 9° 44) 
7% 13 BEQL =-:108 ; 
Ab AF OOF PUSHAB BELL_CHAR + 1551 
16 AD DD PUSHL —20¢PP) 
i HY ame accel : 
2 6 p BOVE (PP), pp : 1555 
6E 020€00 9 a po MOVL 726471936. DESCR : 1369 
000000006 06 BF BUSHIAB PfaSei6. TO.RET : 1342 
momen 0 Hikte Ree ues _ 
Hs y rks Het : 
000000006 90 i r CALLS a. STRSDUPL_CHAR ; 
4 € BLBC TATUS, 10$ : 
: 20 A; p OV 32 (0CBS pp : 1586 
50 000000006 SF MOVL #SMGS$_FATERRLIB, RO ; 1590 
5 20 A MOVAB 32(D¢B), RO + 1592 
: #8 grote : 
04 AE dD PUSHL DESCR+4 : 1597 
7E 4 AE 3C MOVZWL BESCR (SP) : 15 
14 Ad OD PUSHL P : 159 
i % mous fp srgeggu : 
2 6 MOVL (PP), PP : 1599 
i ores : 1393 
000000006 90 f FB CALLS #1, LIBSSFREE1_DD : 
4 p MOVL STATUS, RO > 1605 
4 RET > 1606 


; Routine Size: 208 bytes, Routine Base: _SMGSCODE + 038D 
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ZSBTTL ‘SMGSSBEGIN_PASTEBOARD pepate Ri - Begin batch of updates to pasteboard' 
G T PBCB_DECL 


1+ 
: Increment count of number of SMGSSEND_PASTEBOARD_UPDATE_R2 calls we need to 
! see before we resume output ing from this pasteboard. 

! Let the user know what the previ Ss state of batching was by 

our status return (in case he's interested). 


PBCB CPBCB_L_BATCH_LEVEL) = .PBCB CPBCB_L_BATCH_LEVEL) + 1; 
IF OCB CPBCB_L_GATCH LEVEL] EQL 1 
ei geRETURN SSS_NORMAL 

RETURN SMG$_BATWAS_ON 


END; ! End of routine SMGSS$BEGIN_PASTEBOARD_UPDATE_R1 
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: 1543 1608 1 i ' 
3; 1546 1 p 1 GLOBAL ROUTINE SMGSSBEGIN_PASTEBOARD yeal 1 (PBCB: ar 5 3 
: } ry ! ' : sie : SMGSSBEGIN_PBD_UPDATESLNK = : 
i] és Jo1¢ J | FUNCTIONAL DESCRIPTION: : 
71 rk 1614 1! Inner routine to Support BEGIN_PASTEBOARD_UPDATE action. ; 
; 1550 1615 1! Bisepie outputing t ; pastevoare to the screen until the ; 
; : 1 1918 ! matching call to SMGSSEND_PASTEBOARD_UPDATE_R2 is encountered. : 
i § 1e18 1 | CALLING SEQUENCE: F 
; : 5 18 : ' ret_status.wic.v = SMGSSBEGIN_PASTEBOARD_UPDATE_R1 ( PBCB.rab.r) ; 
i ‘ 16¢¢ 1 | FORMAL PARAMETERS: : 
: ' 33 1 : : PBCB.rab.r Address of pasteboard control block ; 
: 1561 leeg | i IMPLICIT INPUTS: ; 
: 1368 1698 4 | NONE 
: 1564 1609 1 | ; 
3; 1565 1630 1 ! IMPLICIT OUTPUTS: 3 
1869 16321 | NONE 
:1 1638} | ; 
i 1684 1 | COMPLETION STATUS: 
:1 tS 6 1! SS$_NORMAL Normal successful completion, batching has been : 
3 7 16 13 nitiated : 
: } Ys 3 : SMGS_BATWAS_ON Success, but note that batching was already on : 
24 1640 1! SIDE EFFECTS: : 
3 1 1641 1! : 
: me ii. : 
31 1644 1 ; 
3 1 1645 BEGIN : 
4 is : 
31 1 ; 
3 7 1 § : 
: ist : 
| 1 ; 
3 1 1 : 
4 is 3 
. 136 ; 
31 1 ; 
s 3 1 3 : 
i 1 : 
3 3 1 


10 
1S? T oe So = ® . ° - 
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00AS CO 06 00000 SMGSSBEGIN PASTEBOARD UPDATE_R1:: 
NCL 4(PBCB) 


01 00A4 be f anes 184 (P6CB) #1 
50 1 ° post #i, RO 
50 000000006 &F ' +944 18: nee #SMG$_BATWAS_ON, RO 


; Routine Size: 23 bytes, Routine Base: _SMGSCODE + 048) 
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i IMPLICIT INPUTS: 
PBCB CPBCB_L_BATCH_LEVELJ 


1599 1 ZSBTTL "SMGSSEND_PASTEBOARD_UPDATE_R ng beteh of updates to pasteboard' 
1 1 H GLOBAL ROUTINE SAGSSEND =PAST Mt ARD_U DAT nee Pace: REF SPBCB_DECL.) 
: 1 : 5 ind END- ~PBD_UPDATESLNK 
16 ‘ 1688 ! FUNCTIONAL DESCRIPTION: 
1605 1 Inner routine to support BEGIN, PASTEBOARD_UPDATE action 
lens 1890 Reduce the maser 0 Pealls t neasenD PASTE EBOARD UPDATE R2 that will 
160 1671 be needed before we resume Pareto 2 this pasteboard. If 
1608 1926 this call makes this count go to zero, flush the pasteboard to 
1609 167 the screen. 
1919 1674 if the level is “that t 0, we return a success status 
161 1675 ane caller that the batch ng Lovet was already 0, 
1el¢ 4 but we otherwise allow this. This gives a user a guaranteed 
Mb OF 4 : method of ending batching. 
615 er i CALLING SEQUENCE: 
ei? 1 ret_status.wic.v = SMGSSEND_PASTEBOARD_UPDATE_R2 ( PBCB.rab.r) 
tH : | FORMAL PARAMETERS: 
5 PBCB.rab.r Address of pasteboard control block 
& 


'e 
st curvent count is A hie than ve sinoly rotuce it by one — 
retu o caller. one, reduce © zero and cause 
; furront contents of this pasteboard to be flushed to the screen (if need 


I pai CPBCB_L_BATCH_LEVEL) GTRU 1 
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6 
6 
6 
6 
6 
6 
6 6 : 
: 24 ! IMPLICIT OUTPUTS: 
: e38 PBCB CPBCB_L_BATCH_LEVEL] gets decremented 
° 1 244 ! COMPLETION STATUS: 
6 5 469 $s$ evn, Normal successful genp i etien 
6 698 SMGS_BATSTIPRO Success; but batching is still in progress. 
? 5 $89 SMGS"BATWASOFF Success; but batching was already off 
6 701 ! SIDE EFFECTS: 
6 7 ; ‘ 
6 7 NONE 
64 7 oe 
64 705 
64 7 BEGIN 
64 7 LOCAL 
64 7 STATUS; ! Status to return 
64 7 
64 7? 
64 7‘ 
64 7 
64 7 
7 
7 
7 
7? 
7 
7? 
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GIN 
Pace (PBCB_L_BATCH_LEVEL) = .PBCB CPBCB_L_BATCH_LEVEL) = 1; 
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; Routine Size: 65 bytes, Routine Base: _SMGSCODE + 04A4 


BOARD_UPDA = End batch -Oct-1 SMGRTL .BUGSRCISMGDISOUT.832;1 (16) | 
3 i 17 9 ott = SMGS$_BATSTIPRO ! Ok, but batching is still in progress : 
: 16 1 ELSE : 
3 19 § Vf § ere fat } helo “eee to zero : 
: 1889 1795 BATCH Batch TaTUs MAL : 
3 1906 Vf § tad -PBCB PBCB ? SE wor LEVEL) EQ. 0 : 
> 1664 17 NBATCH TATUS ATWASOFF ! Ok, hi : 
 1e8e iy 8 cise STATUS = SMG$_B so Ok, but batching was already off 
i 1666 1730 ,, POCB CPBCB_L_BATCH LEVEL) = 0; ; 
; 1868 17 i Catt SMGSSCHE CK FOR_OUTPUT PaCB to cause the : 
; 1669 17 ' gontents 0 thi§ pasteboard to be F 
; 1670 1734 ' flushed to the screen. 3 
3; 1671 1735 : It may not actually get there if buffering is in ortect. 3 
; 1076 17 ! if that fails, then return its status es our statu : 
3 \or? Ve : If that succeeded then return our previously talculated status. ; 
: 1675 17 § STATUS = SNGSSCHECK FOR_OUTPUT PaCB (.PBCB); : 
: 1676 1740 IF .STATUS THEN STATUS=-BATCH. STATU : 
: 167 1741 END; ! Being reduced to zero F 
: 1678 1748 : 
: 1679 174 RETURN . STATUS : 
; 1680 1744 END; ! End of routine SMGSSEND_PASTEBOARD_UPDATE_R2 F 
SE 04 (2 00000 SMGSSEND PASTEBOARD_UPDATE_R2: : : 
SuBL2 #4, °5P : 164 : 
51 00A4 C0 i MOVAB 16h rBce) R1 : 1716 : 
01 CMPL 3 $ 
uf 18 BLEQU 1$ : : 
Dd DECL (R1) : 1719 : 
52 000000006 8F p D00F ROVE pe pte. STATUS : 1720 : 
6€ i ii B18:  ROVL ty BATCH_sTaTUS : 1735 ; 
9 $3 9001p a Rema 
ue P+ PY 
6E 000000006 8F p 0 F ROVL #SNGS_BATUASOFF, BATCH_STATUS : 1728 ; 
D4 000 8 2s: CLAL (RI) 17 : 
DD QOOZA 38: PUSH tae 3 7 3 
0000v CF FB 000 f CALLS #1, SNGSSCHECK _FOR_OUTPUT_PBCB ; 3 
8 DO 900 MOVL {ATYS 3 3 
ED 000 Brat StAtUs ; 1740 3 
D0 000 VL BATCH STATUS, STATUS : ; 
c DOSA 4$: VL STATUS, RO : 1743 3 
E i ADDL2 4, > 1744 ; 
‘ : 3 


; 1681 1745 1 !<BLF/PAGE> 
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683 74 OUTPUT C8 - Check to see if output needed’ 
684 74 GLOBAL ROUTINE SMGSSCHECK_FOR-OUTPUT_DCB ( 
685 74 DCB : REF BLOCK (,BYTE), 
6 $ 74 REQUEST_CODE, 
6 7 REQUEST_ARG 
688 7 
689 7 \+4 
o3y f ! FUNCTIONAL DESCRIPTION: 
ON 7 This routine is called when ever a change has been completed 
69 7 to a given virtual display. bhanges cons tes of: 
694 7 1. Altering the text in a virtual display 
on? ee 2. a cert the attributes of the text in a virtual 
splay. 
699 76 3. Altering the cursor wt by within a display. 
698 76 4. A virtual display'’s buffering level going to zero. 
$99 76 5. A virtual display has just been pasted to a 
00 76 pasteboard. 
01 764 The criteria for outputing consist of: 
4 76 1, Virtual display buffering level is zero 
0 708 . The virtual display is pasted to at least one 
oe Pee pasteboard. 
769 Each pasteboard to which this display is pasted is isolated and 
770 its window image must be redrawn. 
of The new physical pasteboard cursor position gets set. 
‘ CALLING SEQUENCE: 


ret_status.wlc.v = SMGSSCHECK_FOR_OUTPUT DCB ( 
PCB. raber 
»REQEST_CODE.rl.vJ) 
FORMAL PARAMETERS: 


OCB.rab.r Address of virtual display control block for 
affected display. 


CREQUEST_CODE.rl.v} Optional. If supplied, it is a code telling 
the nature ot the request that prewenes this 
call to SMGSSCHECK_FOR_OUTPUT_DCB. 

Among other things, it tells us when it is 
necessary to redraw borders. 


CREQUEST_ARG.rl.vJ Optional. if suppl ied, then it tells us the 
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unique Line in the DCB that has changed. 
If specified as 0, then the whole DCB has changed. 
IMPLICIT INPUTS: 
38 NONE 
3 4 IMPLICIT OUTPUTS: 
; ? WCBCWCB_W_CURR_CUR_ROW} pete set to place corresponding 


0 logical gucser position in 


this virtual display. 


16 
Deal with each pasteboard that this virtual display is pasted to... 


WHILE .CURR_PP NEQ DCB CDCB_A_PP_NEXT) 
BEGIN ! Overall loop 
LO 


SNS SN NNN 


SPSssssgssersses 


CAL 
PBCB : REF BLOCK (,BYTE), ! addr. of pesteboord control 
wCB : REF BLOCK (,BYTE); ! Addr. of window control block 


PBCB = .CURR_PP [PP_A_PBCB_ADDR); ! Select pasteboard and WCB 
ten CPBCB_L_BATCH_LEVEL) EQ. 0 
BEGIN ! Force output 


LOCAL 
OPT_FLAG; ! Flag 
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1-07 SMGSSCHECK_FOR_OUTPUT_DCB = Check to see if out 2-O0ct-1984 12:58:1 SMGRTL .BUGSRC JSMGDISOUT.B32;1 (17) 

; 1740 1803 1! . 
> 1741 1806 1! WCBCWCB_W_CURR_CUR_COL] pete set to place corresponding : 
3 ree 1805 1! o logical cursor position in : 
3; 174 1806 1! this virtual display. . 
3 1746 1807 1! ; 
>; 1745 1808 1 ! COMPLETION STATUS: : 
3 fy 1809 1! ; 
3 174 1810 1! SS$_NORMAL Normal successful completion ‘ 
: 1748 1817 1! : 
: 1749 1 \¢ 1 ! SIDE EFFECTS: : 
; 1750 1815 1! : 
; 1751 1814 1! NONE : 
: 17 § 1815 1 !<- : 
; 175 1 18 1 ; 
: 1754 181 BEGIN : 
; 1755 1818 BUILTIN ‘ 
3 1738 $4 ACTUALCOUNT; ° 
3; 175 1820 ; 
; 1758 1821 LOCAL ‘ 
: 1759 18 § CURR_PP : REF BLOCK C,BYTE), ! Addr of pasting packet under ; 
3 1790 : ? ! inspection ‘ 
3 1706 1825 STATUS; ! Status of subroutine calls ‘ 
3; 176 1 $ ; 
3: 1764 1 '¢ ‘ 
; 1765 1828 : If current buffer level not equal to zero, this is not the time to : 
3 1706 : 4 flush this display to the screen. ° 
; 1768 1831 IF .0CB CDOCB_L_BATCH_LEVEL] NEQ 0 ; 
3 3 4 1 § THEN . 
5 : a : Z RETURN (SS$_NORMAL) ; ‘ 
31 i 1835 CURR_PP = .DCB CDCB_A_PP_NEXT]; ! Start of chain of pasting : 
3; 177 1 ! packets to which this display ‘ 
3 1774 1 ! 1s pasted. ; 
; : 2 ; IF .CURR_PP EQL 0 ; 
3 ' 7 ' RETURN (SMG$_FATERRLIB); ! should never be 0 : 
3 7 r§ 1 : 
3: 1 1 . 
3 7 1 : ‘ 
3 1 1 . 
31 1 : 
3 7 1 . 
3 7 1 : 
3 1 1 : 
3 7 1 : 
3 1 1 : 
3 7 1 ‘ 
3 1 1 . 
3 1 1 . 
3 7 1 : 
3 7 1 ; 
3 1 1 4 : 
: 1 1 4 . 
3 1 1 4 : 
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WCB = .PBCB CPBCB_A_WCB]; ! whose window needs rebuilding. 


'4 
i Set the cursor posts ton in the pesfeveere to correspond 
_to it's place on this virtual Pi splay. 


ice CWCB_W_ CUR. _ CUR =f OW) = ,0CB (OCB _wW ee -ROW)=1 
+ .CURR_PP CPP_O_Row 


WCB CWCB_W_CURR_CUR =0LJ = ,0CB EPs? W SURSOR -COLJ-1 
¢ .CURR_PP [CPP_@_COL 


235, 


PPE DRD SDP PDA APIS ES BVI ASIII ES BB BSI BBP PP PPP PPP PPP PPP PEE 


mo 
Wr—OO°w 


ite QUEST_CODE is present and is is a type that just 
: ae cUrsor motion, deal with it as a special case to 


* > 


51 
+ g 
51 § ' avo »Femanp ing the virtual elepies since contents did 
+ 8 i: not change. 
1 
’ 9 FR 2 aa () GEQ 2 ! REQUEST_CODE present 
1 {] ! rt opt ieteetion . 
. nee Mrequést ODE EQL ecee 8 ET_CURSOR_ABS OR 
ce ik «REQUEST-CODE EQL SMGS$C"SET ~CURSOR_REL 
¥; OPT FLAG = 1; 
8 END; ! Try optimization 


ea” FLAG 
BEGIN ! Opt. possible 
| “Force cursor to desired spot in optimal fashion 


SHGSSUPDATE Apt tes CURSOR ( .PBCB); 
END ! Opt. possible 


VFN —O OBNOVE UNO OONOU SWC < 


ELSE 


7 ! Remapping necessary 

i Check to see if we can get by with just redrawing the 
i changed virtual d splay. 7. whether we peed to redraw 
i the hanged one ane all hig norapestes virtual 

i disp ays. We can do the former this pasting has a 
‘ bit that says it is not occluded. 


If NOT . .CURR_PP CPP_V_OCCLUDED) 


BEGIN ' Redraw just this virtual display 
i NOT (STATUS = SMGSSMOVE_TEXT_TO_WINDOW_BUF (.CURR_PP)) 


RETURN (.STATUS); 


te 
iif something actually got redrawn, tel. the output 
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1-07 SMGSSCHECK_FOR_OUTPUT_DCB = Check to see if out 2-0ct-1984 12:58:1 SMGRTL .BUGSRCJSMGDISOUT.B32;1 (17) 
3] 1917 6 ! gh» we''t changed the whole virtual i 44 
; 1 191 ? ! If just one As has changed. however, then tel 
3 : ! 1 ° the output routines which Line changed. 
:1 13 1 6 iF .CURR_PP CPP_W_ROWS_TO_MOVE) NEQ 0 
31 19 j $ THEN 
: 4 19 BEGIN 
31 1924 7 PBCB CPBCB_W_FIRST_CHANGED_ROW) = 
3 | 19 5 f -CORR_PP CPP_W_FIRST_WCB_ROwW); 
:4 19 § ? PBCB CPBCB_W_LAST_CHANGED_ROW)] = 
3 : 12 8 f -CORR_PP CPP_W_LAST_wWC8_ROW); 
:4 1930 7 PBCB CPBCB_W_FIRST CHANGED COL) = 
; | 19 1 f ~CORR_PP CPP_W_FIRST_WCB_COL]; 
:1 19 4 7 PBCB CPBCB_W_LAST_CHANGED_COL) = 
31 1934 7 -CORR_PP CPP_W_LAST_wWCB_COLJ; 
; : 5 e END; 
: 1 19 $ 6 IF ACTUALCOUNT () GEQ 3 ! If REQUEST_ARG supplied 
:1 1939 & IF .REQUEST_CODE EQL SMGSC_PUT_CHARS AND 
: 1 1940 6 »REQUEST-ARG NEQ 
31 1941 $ THEN 
3 1 1306 BEGIN ! Just one row changed 
: 1 1943 7 PBCB CPBCB_W_FIRST_CHANGED ROW] = 
; | 1946 f « CURR_PP~CPP_W-ROW)+.REQUEST_ARG-1; 
: 1 1946 7 PBCB CPBCB WL AST CHANGED ROW) = 
: Hb ah 4 .CURR_PP"CPP_Q_ROW)+.REQUEST_ARG-1; 
: 1 1949 6 END; ! Just one row changed 
; 138 § . 
31 1988 6 i If REQUEST_CODE is present and it is of a type 
3 1 1953 6 ' that could have added a border, we must redraw the 
: : 1985 ° i border at this time. 
; ' 1996 ° IF _ACTUALCOUNT () GEQ 2 ! If REQUEST_CODE supplied 
: 1 1958 6 IF ,REQUEST. cove EQL SMG$C_LABEL_BORDER 
: 1960 IF -0CB COCB_V_BORDERED) 
31 1 IF NOT (STATUS = SMGSSDRAW_BORDER ( 
: 1968 f ne .DCB, .CURR_PP, .wCB)) 
; 1965 RETURN (.STATUS); 
: 1967 SMGSSMIN_UPD (.PBCB); 
: i i END ! Redraw just this virtual display 
; i ELSE 
: 1910 1 6 BEGIN ' Must redraw it and outer ones 
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RETURN (SS$_NORMAL) ; 
END; 
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Go rebuild window buffers 


Be 42:38:78 


or this pasteboard 


SMGRTL .BU 


} starting with current pasting packet, and output. 
iF NOT (STATUS = SMGSSFILL_WINDOW_BUFFER ( .CURR_PP)) 


RETURN (.STATUS); 
END 


! Overall loop 


007C 00000 
55 4 ac OD 
tad 
00E 1$: 
52 20 =A if 2s: 


50 000000006 


28 20 


54 
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: ' Must redraw it and outer ones 
END; ! Remapping necessary 
END; ! Force output 
CURR_PP = .CURR_PP CPP_A_NEXT_DCB); ! Walk the DCB side of 
' the chain from front 


! End of routine SMGSSCHECK_FOR_OUTPUT_DCB 
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08 0 £9 9 5$: Bac OPT_FLAG, 7$ ; 

000000006 « 00 i i CALLS #1, SMGSSUPDATE_PHYSICAL_CURSOR : 

65 2A Ae €E $F: BLBS = 4 (CURR. PP), 11$ : 

0D PUSHL CURR _PP~ : 

0v00V gf a CALLS tf P SRGSSROVE. TEXT_TO_WINDOW_BUF 3 

6 BLBC 4 ies : 

1¢ A Ist Aris, PP) : 

00A8 cs 2F OA p mova (CURR_PP), 168(PBCB) : 

6 8$: CMPB sé AP?), #3 : 

F iF BLSSU : 

1 08 Ac p CMPL  REQUEST_CODE, #17 : 

1 C BNEG : 

0c At TSTL REQUEST. ARG : 

1 BEQL ; 

50 18 A2 wet 4(CURR_PP), RO : 

oc ac C ADDL REQUEST “ARG, R : 

D7? OOOAB DECL : 

OAs C4 & MOVW a, 18a : 

OAA cs MOV (PBCB) ; 

2 6¢ B7 9S: CMPB : 

F 3A BLSSU : 

1C 08 A p CMPL § REQUEST_CODE, #28 : 

1 BNEQ } $ : 

OF ) a \ an 3 BLSC = 47(RS), jos : 

8B PUSHR #*M<R2.R : 

DD PUSHL ; 

0000v cr F A CALLS 3 SNGSSDRAY _BORDER ; 

6 D § MOVL R STAT ; 

1 E BLBC STATUS, 12$ ; 

4 DD 10$: PUSHL Pace : 

000000006 00 it CALLS ‘ ‘ SMGSSMIN_UPD ; 

é DD 11$ PUSHL ish : 

0000v CF F CALLS @ SReSSE ILL _WINDOW_BUF FER : 

6 D MOVL «= RO : 

4 E A BLBS strug, $ F 

0 12: MOVL STATUS, R ; 

52 9 13$: MOVL { URR_PP), CURR_PP F 

FF 4 BRW ; 

A RET : 


; Routine Size: 251 bytes, Routine Base: _SMGSCODE + 04E5 


; 1930 1993 1 !<BLF/PAGE> 


PERRIS he 


On 
zm 


— —) — — —) — — Ls 1 


— 
ReeSeSE SER SsSseSs 


—ODCONOULS WTO 0O@ 


oo 
vw 


PADMA 


DOONOULS wT 


DOODODOO00O 


SeSSeeTEES 


oo 


bo hok oh oh oh oh ok 


PRIPIAIPIPIPIPIFIAIPIFIPIPIP IIIA IPI II a i ed dd dd dd 


a a ce a cm a a De a ee es ed ae ed ed wd ed ed ed 


BLSRR wv — SCaNOU RUIN 


DODDOOODNOOOO 


11 
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ECK_FOR_OUTPUT_PBCB = Check to see -Oct-1 


ZSBTTL *SMGSSCHECK FOR OUTPUT_PBCB = Check to see if output needed’ 

GLOBAL ROUTINE SMGSSCHECK_FOR-OUTPUT_PBCB ( 
PBCB : REF BLOCK C,BYTEJ 
= 


'44¢ 


! FUNCTIONAL DESCRIPTION: 


This routine is called when a change has been made to a 
articular pasteboard that requires the entire screen image to 


' 
e recomposed, e.g. as a result of an UNPASTE operation. 
CALLING SEQUENCE: 
} ret_status.wic.v = SMGSSCHECK_FOR_OUTPUT_PBCB ( PBCB.rab.r) 
FORMAL PARAMETERS: 
; PBCB.rab.r Address of pasteboard control block for 
affected display. 
} IMPLICIT INPUTS: 
PBCB CPBCB_L_BATCH_LEVEL] 
IMPLICIT OUTPUTS: 
NONE 
COMPLETION STATUS: 
‘ SMG$_BATWAS_ON Ok, but batching was on so nothing happened 
SS$_RORMAL Normal successful completion 
SIDE EFFECTS: 
aa NONE 
BEGIN 
LOCA 


L 

WCB : REF BLOCK C,BYTE), 
STATUS; 

WCB = .PBCB CPBCB_A_WCB); 


' Address of window control 
ock 


vor 
— 


tatus of subroutine calls 


'¢ 
Do nothing if batching is in effect. 


IF .PBCB CPBCB_L_BATCH_LEVEL] NEQ 0 
THEN — RETURN™SAGS$_BATWAS_ON; 


‘¢ 
! Clear text buffer to blanks and attribute buffer to serges before we 
: start. Clear alternate character set buffer to zeroes it exists. 


SMGRTL BUSERE ISHED SOU? .B32;1 


; 


ad a ad nd ed A oo wt td 


SSRUSRE ORCS SELES ES TSS 


SOSSSOSOOCOOOOOO 


NMrornororororny» 


oOo 


oe at tt tt ws ts at 


nOr8 


BUFO CONOU Lwin 


SPLAY_OUT SMG$ 


28 
28 


a 
Clear text line characteristics vector to zero. 


ISPLAY OUTPUT = Oure 
CHECK_FOR_OUTPUT_PBCB = Check to see 


ut Virtual Displa 


Gal 


Be f2i88i1 


yexel Bliss-32 V4.0-7 


CHSFILL (2C° *, .WCB CWCB_L_BUFSIZE], .WCB CWCB_A_TEXT_BUFI); 


CHSFILL (0, 


IF .WCB CWCB_A_CHAR_SET_BUF) NEQ 0 


-WCB CWCB_L_BUFSIZE), .WCB CWCB_A_ATTR_BUF)); 


CHSFILL (0, .WCB CWCB_L_BUFSIZE), .WCB CWCB_A_CHAR_SET_BUFJ); 


CHSFILL (0, .WCB CWCB_W_NO_ROWS] +1, .WCB CWCB_A_LINE_CHAR)); 


+ 
Tell the output routines that we've changed the whole WCB buffer. 


+ 


PBCB 
cB 


: 


PBCB_W_F IRST_CHANGED 
B-W-LAST_ CHANGED _R 

CB-W_F IRST_ CHANGED 

PBCB_W_LAST_CHANGED_C 


ROW) = 1; 

out = .bBce CPBCB_B_ROWS); 

col] = j 
= .PBCB CPBCB_W_WIDTH); 


OL 


i Go rebuild window buffers for this pasteboard and output. 
the address of the first pasting packet 


if 


20 


! Pass  erteke ae’ elt coke 
u 


any exist, else t output now-blank screen. 


a CPBCB_A_PP_NEXT) EQL PBCB CPBCB_A_PP_NEXT] 


ELSE 


RETURN (SMGSSFILL_ WIND 
pate TPs 


BEGIN ! Nothin 
Se (SMGSSMIN 


7? 
5 8s 
O0A4 
50 000000006 
6E 
08 
6E 


“uP 


BUFFER ( 
CB_A_PP_PREV] - PP_PBCB_QUEUE_OFFSET) ); 


asted -- output blanked buffer 
D (.PBCB)); 
! Nothing pasted -=- output blanked buffer 


! End of routine SMGSSCHECK_FOR_OUTPUT_PBCB 


6 


SHGSSCHECK_FOR_OUTPUT_PBCB, Save R2,R3,R4,~ 
R5S,RO.R 


BEA co 

#SMG$_BATWAS_ON, RO 

#0, (SP), #32, 40(wCB), a8(wce) 
#0, (SP), #0, 40(wCB), a12<wce) 
yocwce) 


-7%4 
SMGRTL BUGSRCISMGDI SOU .832;1 


Page 43) 


1995 
2038 
2044 
2045 
2051 
2053 
2055 


SAGER ISPLAY OUT SMGSDISPLAY OUTPUT = Out 
7 SMGSSCHECK_FOR_OUTPUT_PB 


28 AG 00 


50 00 


7E 


Routine Size: 114 bytes, 


:; 2027 2089 1 !<BLF/PAGE> 


ut Virtual Displ 
B = Check to see 


03 


2c 
SF 
5A 
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oo 


tt ow 38 


2c 
is 


OOO No —-TeW 


FOwswo 


=SMGSCODE + 05E0 


382 FSiS8it9 Hecate bussaeSsmeae sour .e32:1 


#0, (SP), #0, 40(WCB), a16(WCB) 
gies). RO 
#0, (SP), #0, RO, a44(WCB) 


68(R7) 
shinis “Ar0cR7) 


fata. 4 MacR?) 
, a? 

R 

#1, SMGSSMIN_UPD 


#8, 4(R7) 
+ onesstiil> SUINDOW. BUFFER 


-_m 


"6 
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DONOULS WIN —OO@ 
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pojojlojloloyo) 
CONOUSWN—O 


SeeeEaeaee 
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Sooococeoo 
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ISPLAY_OUT SMGSDISPLAY_ OUTPUT = Output Virtual Otsplays B= Jan-1985 ¢: $3: 49 AX-11 
SMGSSDRAW_BORDER = Move border characters into 4 


1 


v4. 


Liss-3 0-7 P 7 
SNGRTL BUcERCTSNGOs SOUY .832; 1 age 43) 


-“Oct-1 


ZSBTTL asottae enee RDER - Azeae characters into buffer’ 
GLOBAL Rout ie BioRAU BoRDER 
! i Pasting control sneak address 
ng packet address 
Nndow control 6 = address 


PPP : REE ‘BYT 
WCB : REF BLOCK ;BYT 


lee 
! FUNCTIONAL DESCRIPTION: 


orew the inthe characters ‘tte the text buffer of the WCB. 
The cell in the text buffer has bits set to Rid 
elements of * berger ot bn | will be neede 
position. When the f ret such bit is set in the 
the corr a cell in Ene attribute array is flag with 
ott which signals that the text array cell no longer contains 
: printable character, but an encoding of the border character. 
CALLING SEQUENCE: 
ret_status.wlc.v = SMGSSDRAW_BORDER ( OCB.rab.r, 
-rab.r, 
wCB.rab.r) 
FORMAL PARAMETERS: 
0CB.rab.r ! Display control | + al address 
PP.rab.r i Pasting packet addres 
wees. rab. r ! Window control block. eddress 
IMPLICIT INPUTS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 
COMPLETION STATUS: 
SS$_NORMAL Normal successful completion 
SIDE EFFECTS: 


BEGIN 


4 
i macro ee checks a ‘text’ charecter to see if it is glreedy 3 
' border s in new border contribu 

iit et flagged as being ? border element it stores the 

i border contribution and marks attribute byte to record this is a 

i border element. 


MACRO 
SMARKIT ( OFFSET, ELEMENT ) = 


—sy 


11 


pasteboard. 
LDES : REF BLOCK C,BYTE), 


oo 
wn 


oer Re. he dynamic vane 


A 
or in the DCB whic 


ISPLAY_OUT SMGSDISPLAY OUTPUT = Output Virtual Displays b-Jan-t 5 21:49:46 AX-11 Bliss-32 V4.0-74 Page 58 
aa SMGSSDRAW_BORDER - Move border characters Thto ~3et= 1984 #3533399 UonaRTe BugsRcssMeby SoU -832;1 ’ (135 
3 M 2147 BEGIN 
3 : 198 ao C.OFFSETJ)<ATTR_V_BORD_ELEM, 1> 
; M21 ‘ PTRT C.OFFSET) = .PTRT C.OFFSET) OR ELEMENT 
: M21 ELSE 
3 1 4 21 § Bté N 
; § M 21 PTR p-Orrsery = ELEMENT; 
: mgt 4 PTRA C.OFFSET] = ATTR_M_SORD_ELEM ; 
> 2095 136 END f' ; 
: : ‘6 
: 1 § i Mace SCALC_LEFT INDEX computes the byte offset into the WCB text and 
3 160 ' attribute fers where a left border element needs to be placed for 
3 191 He ! a double-wide Line to make it come out in the correct column, 
: 21 : 188 CRO 
 $10e m 5188 Sectareet TqIMOEX = 
> 2105 M 2166 “SINDEX = (.WLN 1) © .WCB CWCB W_NO_COLS) ¢ 
3 198 i 16 ae & (.PP CPP_W_FIRST_wCB_ COL) / 2) -1; 
OE 
: 2110 171 : Macro SCALC_RIGHT_INDEX computes the byte offset into the WCB text and 
3 2111 18 ! attribute buffers where a right border element needs to be placed for 
3 ig 17 ! a double-wide Line to make it come out in the correct column. 
Be BE 8 wien 
RE ORS § Beehgsttowr_anmex « 
: 19 i 178 SINDEX = (.WLN -1) © .WCB CWCB_WNO_COLS) + 
; 18 x ’ mn © ((.PP CPP_wW_FIRST_WCB_COC) * .PP CPP_W_MOVE_LENGTH] #1) / 2) -1; 
a R$ coca 
> 21 ; 1 § SPOS 
: 21 1 ' Position where the first (or only) border piovent will be 
3 2126 185 ! written. This is a disp locenens from the beginn ng of the 
3: 2125 1 ! window buffer. fore using this position, we must always 
3; 21 $ 1 ' check to see if it points into the confines of the buffer. 
3: 21 1 ' rote basically tells us if that port - of the border is 
3 ; : : visible considering how the virtual display is pasted to the 
: st i 7 ; 
: 21 Q 1 i descr 

3; 21 194 ' records the border label text 

3 : : 133 ! string. 

: 1 199 PTRT : REF vests f-BrTe}. ! pointer to top of wCB ext buf 

3: 21 138 PTRA : REF VECTOR L,BYT ! pointer to top of WCB ATTIR buf 

21 1 R_ROW, ' Row numSer of top border 

3; él LOWER ROW, ' Row number of of ton border 

t Step BenT cbc | Tal suster Of clake border 

3 s ' Co 

3 2142 g wCB_L.Cv : REF VECTOR C,BYTE), ! Pine control block 


——_—_ --——_—_} 


Rr eR Lotta none Bat otirtyel Oisalers. B-Jan-1985 PhiSRiFo | PeMcat aieeaesshteysocy ese. 1 Page 4d) 


PBCB : REF BLOCK C,BYTE); ! addr. of oasteboard control 
5 ' block 


PTRT = .WCB (we 
PTRA = .WCB (WCB_ 
PBCB = .PP 


C 
WCB _LCV = .wCB™ 


'¢ 


i epeteneeres abene - attempt se draw border. This is strictly aggen ing not 
: ution since i jgreres she case where a virtual ¢ 
! pasted such that 7 is not visi but its border should be. [Trying to 

i make this saeesneies cal_case work oree require some coordinated work on the 
part of SCALC_PASTE_TRANS. (See corresponding note there.) 


IF .PP [PP_W_ROWS_TO move) Ea EOL 0 OR 
-PP CPP"W~MOVE-LERGTH 


RETURN (SS$_NORMAL) ; 


a a tt we 3 ts 


WF uTy CONO VEU" OOOBVWHUE 


'¢@ 

i Compute the row and column numbers where the borders fall. Note these 
i rows and columns may not map into buffer and need to be validated 

t before use. 


R_ ape CPP ou wW_ROW) - 
LOWER-ROW = .Pp ne w noi, 1) + .PP CPP_W_ROWS_TO_MOVE); 
LEFT To. = hs (Pe v.£OLJ 
GHT_COL = -PP~(PP_w col), 1) + .PP CPP_W_MOVE_LENGTH); 
'¢ 
! If the Line above where the virtual display is pasted exists in the 
} window butter, draw the the top border. 
40 2 IF .UPPER_ROW GEQ 1 
41 THEN 
4 BEGIN ! Top border 
fy 
44 '¢ 
vB i if WEB is special, blank it and force Line to normal. 
4 
2 mm -WCB_LCVC.UPPER_ROW)] NEQ 0) AND .PBCBCPBCB_V_WIDE) 
} CMBF TLL cac to! ut BECB Uo nD cou 
me . 5 ¥ RorOO-17s ucetwce, W_NO_COLS) }); 
4 "pein “oPrek Satan t ttatuce _W_NO_COLS) }); 
5 Hay -bCve, Q 


Fores th vy normal 


PP CPP_W_T x) = .WCB [WCB_W_NO_COLS) ; 
NCR I pe 10-'pp tps u_nove rENCTRI™” 


cc ec ee ec ee ec ee a ce ce ce ce ce cee ee ce ce ee ce ced ee ce ee 


—_ 
PPPS 
SSCSSIR SS as S Pee SS SANSA FNS SS SSS SSE eee SSS 


oom 
eet PE EEE 


See raya ouT SRT RAAU BORDER’ S Roce’botaue thet Displays. Boden 19Rs 2:88:79 — EoMert busSacssneoysout 32; 1 Page 49) 
§ : 1 eis a4 - “WORT? = 0; ! Knock down ‘'down’’ seg 
? , 
ENDS ., Top Line loop 
If -UPPER_ROW LSS .PBCB CPBCB_W_FIRST_CHANGED_ROW) 
PBCB CPBCB_W_FIRST_CHANGED_ROW) = .UPPER_ROW; 
END; ! Top border 


Mut 


LEAF 


o- 
oOo 


'¢ 
i If the Line below where the virtual display is pasted exists in the 
& window buffer, draw the the bottom border. 


Feggt MER ROw LEQ .WCB CWCB_W_NO_ROWS) 
BEGIN ! Bottom border 


'¢ 
If WCB is special, blank it and force Line to normal. 


> 


MEW —O OONOus WO 


ad td 2 ot od 
> i 


VEN 9 DOONAN E WN “OO OBNOU FSW 


Hen’ -WCB_LCVC.LOWER_ROW] NEQ 0) AND .PBCBCPBCB_V_ WIDE) 


Bete Se Se Ge Be Se Ge Se Ge Se Ge Fe Se Ge Se Se Se Fe Ge Se Ge Fe Se Ge Ge Ge Se Se Se Se Ge Se Se Se Oe Ge Oe Se Ge See Be Se Se Se Se Se Se Ge Se Ge Se ee Ge Geese 
Se Ge Ge Ge Ge Ge Ge Ge Be Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Ge Ge Ge Ge Ge Se Ge Se Ge Ge Ge Be Ge Ge Be Be Be Ge Be Be Be Oe Be OS Be Be Be Oe Be eee 


4 BEGIN ! Force Line norma 
4 BASF ILL CHC" por etuce we “6 COL 
4 TR tetoe R RO-15s uC atuce. W_NO_COLS) }); 
4 CHSFILL(2C’ okBte c6_w COLS. 
91 4 PTRA (10 f ROG Te ,wCBCWCB_W_NO_COLS) }); 
4 4 WCB_LCVC.LOWER_R 
iS ; END; i Force ty normal 
95 4 SPOS = .PP CPP_W_TO_INDEX] + (.PP oe W BONS TO_MOVE] * 
96 uce Cu Cwce_@ TNO. COLS] 3 
; INCR I FROM 1 TO .PP CPP_W_MOVE LENGTH 
38 & om Line loop 
4 Pos “Bono M_HORIZ ); 
40 4 CPIRT If $008 j D-V~UP,1> ='0; ! Knock down “up” seg. 
4) § 4 SPOS = 
ri ND; ‘, "pottos Line loop 
rf 5 dl LOWER ROW GTR .PBCB CPBCB_W_LAST_CHANGED_ROW) 
? PBCB CPBCB_W_LAST_CHANGED_ROW] = .LOWER_ROW; 
: END; ! Bottom border 
0 '¢ 
1 i If the colusn to the left of where the virtual display is pasted 
§ exists in the window buffer, draw the left border. 
4 "JF .LEFT_COL GEO 1 
5 THEN 
56 BEGIN ! Left border 


SMGSDISPLAY_OUT SMGSDISPLAY_OUTPUT = Output Virtual Displays B-Jann 14 AX-11 Bliss-3 P 1 
a8} 8 SMGSSDRA i BORDER = Move Sorder charecters Yato “Oct- 1982 3; 8; +8 OMGRTL BUReACTsMcOySOUs B32;1 age 48) 
7 18 LOCAL 
8 1 WLN, Line number in WcB byf fers 
0 LCV : REF veeTbR -BYTEJ; ! Addr of Line characteristics 
60 1 ' vector in wCB 
61 § WLN = .PP CPP_W_FIRST “ee : wi: 
6 LCV = .WwCB C(WOB"A_LINE C¢ 
6 4 SPOS = .PP [PP_Q 16 INDE ws 
64 INCR 1 FROM 1 TO” bp Upp W Py TO_MOVE J 
6 BEGIN eit olumn loo 
6 8 IF .LCV C.WLN) E L 8°or ° ' If normal or 
re 8 ma -PBCB CPBtB. Vv ONDE?) ' DWOH not supported 
0 1 BEGIN ' Norma t oxeee 
71 ¢ SMARKIT t Spoes AVERT ) 
Y (PTRT (€.SPOS 5 BORD” Vv “RIGHT, 15 = 0; ! Knock down ‘'right’’ seg. 
ie, : suse’ ! Normal case” 
$f? § aay ! Double-wide or Double-wide/Double-high case 
77 8 SINDEX; ! Special index for DWDH 
78 9 SCALC_LEFT do ti 
79 0 SMARKTT (SINDE Bord _m VERT 
80 1 (PTRT L.SINDERIS<BORD “V “RIGHT ‘i> = 0; ! Delete “right’’ 
281 é END; ' Double-wide-or Doub! ¢-wide/Double-high case 
see SPOS = .SPOS + .WCB CWCB_W_NO CO 
8 WLN = .WLN + 1; 
Be ; ' Left column loop 
iy s gLOrt co LSS .PBCB CPBCB_W_FIRST_CHANGED_COL 3 
88 PBCB CPBCB_W_FIRST_CHANGED_COL] = .LEFT_COL; 
90 END; ' Left border 


— 


'¢ 
! If the column to the a oh of where the virtual display is pasted 
exists in the window buffer, draw the right border. 


teat tO Oe LEQ .WCB CWCB_W_NO_COLS) 
BEGIN ! Right border 
LOCAL 


' Line numb r in WCB of Line 
: REF VECTOR C,BYTEJ; | Addr of | o. characteristics 


' vector in 
.PP CPP_w gins wCB_ROW); 
= Mee Buco INE CHARI; 
TNNDEX) +” PP CPP_W_MOVE LENGTH); 
FROM V Te TO, CPP_W_ROWS_10_MOVE) 


ooo 
QESRAS 


Right co column loop 
LCV C wi EQ. 0 ' If normal or 
(NOT .PBcB CPBCB_V OU1DE?) ! DWDH not supported 


THEN 
GIN ' Normal c 
RKIT (SPOS, BORD. i. VERT ) ; 
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P T SMGSDISPLA PUT - i i “1 14 
SAGs ISPLAY_OU ane coors LAY_OUTPU ote rtual D og b-J3 Jan 38? qh: 3: +9 


ya AX-11 a EB 742 
SSDRAW_BORDER = Move er characters “Oct-19 SMGRTL .BUGSRC sheoss0uy. B32;1 


> 2314 75 2 (PTRT C.SPOS])<BORD_V_LEFT,1> = 0; ! Knock down ‘‘left’’ seg. : 
3 \? 6 ? ND ' Normal case” : 
; " 4 ) iat ! Double-wide or Double-wide/Double-high case : 
; 2319 0 ASINDEX; Special index for DWOH ; 
; 2320 1 SCALC RIGHT INDE ; 
> 2321 : SMARKTT (SIADEX, BORD_M_V Eee ; 
: 3308 (PTRT -SINDEXI5<BORD-V LEFT i> = 0; ! delete “Lett ; 
3 4 4 END; ' Double-wide or Doub iV wide/Double=high case : 
: 4 5 4 SPOS = - SPOS + .WCB CWCB_W_NO_C H : 
; 5 § 4 WLN = .WLN + , 
; § { END; ' ‘Right column Loop ; 
: e 89 IF RIGHT COL GTR .PBCB CPBCB_W_LAST_CHANGED_COLJ ; 
: , 4! PBCB CPBCB_W_LAST_CHANGED_COL] = .RIGHT_COL; i 
: 5 é 9 END; ! Right border 

7 94 

: 2334 95 '¢ 

; $3 5 Hs _Handle upper left-hand corner if position exists in buffer. 

; 338 338 IF “upper ROW GEQ 1 AND ' Row exists 

; $36 44 FT_COL GEQ 1 ! Col exists 

: 340 401 BEGIN b p PPS uf eit ane corner 

3 41 40 SPOS = DEX] - WCB CWCB_W_NO_COLS] - 1; 

3 x06 40 SMARKIT- (SPOS. “BORD ANS LCORN 

3 oi : : END; ' Upper lettcRend corner 

: 38 $88 '¢ 

; +9 mht 1. Handle upper right-hand corner if position exists in buffer. 

: Sac 409 IF .UPPER_ROW GEQ 1 AND ' Row exists 

; 2350 rth gRIGHT. COL LEQ .WCB CWCB_W_NO_COLS) i Col exists 

: 51 tig id “18 inpex corner 

i 2352 41 Spo = .PPeEPE WT =" .WCB CWCB_W_NO_COLS] + 

; 235 414 P-W MOVE LENGTH) ; 

3 54 415 SMARK IT (P08, ein “AU RCORN 3 

3 56 $i$ END; ! Upper right=hend corner 

; 41 '¢ 

3 23 ci Handle lower left-hand corner if position exists in buffer. 

: 4 ? : IF ,LOWER_ROW Lge WCB CWCB_W_NO_ROWS] AND Row exists 

: 2361 4 ; i LEFT COL GEQ i i Col exists 

; 5 424 BEGIN } power Leftchand corner 

: 425 4 SPOS = PP_W_TO_INDEX] + (.PP CPP_W_ROWS_TO MOVE) * 

3 4 $ .wtB~ Cuca W _f0_ COLS]) = 1; 

; & yal pee. BORD_M_LLCORN ) ; 

3 : 8 END Lower left-hand corner 

: 4 ‘6 

: 4 ? ! Handle lower right-hand corner if position exists in buffer. 


LS 


SPGERISPLAY OUT SMGSDISPLAY_OUTPUT = Output Virtual Displays a genni 38? 7} $3: #0 AX-11 Of ieee esehe Page $5 
1-07 SMGSSDRAW_BORDER = Move border characters into “0c t-1984 SMGRTL ..BUGSRC sheoy sou. 832;1 (19) 
; 2371 4 te 

3 oe 4 : IF .LOWER_ROW LEQ .wCB FCB _W_NO. ROWS] AND ! Row exists 

3; 237 434 +RIGHT_COL LEQ .WCB CWCB-W°NO-COLS i Col exists 

3: 2376 435 THEN 

: 2575 4 8 BEGIN ! Loyer riane shang ¢ corner 

; i: 4 SPOS = .PP CPP_w_TO_INDEX 

3; 237 4 8 CPP PP _ w_RO OWS. TO poy * .WCB CWCB_W_NO_COLS]) + 
3 8 4 P CPP_Q_Move CENG 

3 7 440 sepa (spos BORD-M MLLRCORN » 8 

; 2380 44) END ' Lower right=hand corner 

mp ee, 

: Ht 444 i Check to see if this border is labeled and if so, move the label text 
: Hf 445 ! into the ofopcor sate border area. 

: 5 123 ' ALL the fields in the PP accessed below have been previously computed 
5 Hr] 44 ' at the time the virtual d as # was pasted to the pasteboard so 

; t¢8 ! that 7 need ty be cecomputed eac time through here. “The lengths 
: 44 ' used he various CHSMOVE's and CHSFILL'’s have been so computed 

: 4 ¢e9 that if no parts of the abet fit, the tenethe used are zero. 

: 4 $36 LDES = bce COCB_Q LABEL_DESC); 

3 4 te? ie Les DSC$W-LENGTHJ“NEQ ! If label exists... 

: 239% 455 EN AEGIN ! Overall border label processi "9 

H 95 rts CASE .0CB DCB_B_LABEL_POS] FROM SMGSK_TOP TO SMGS$K RIGHT OF 

; 3$ 438 CSMG$K_TOP): 

; 44 rt 4 ? BEGIN ! Label in top row 

: 2400 461 4 "it row where Label lands is not on the pasteboard, no 
; ret re ¢ t movement will be necessary. 

: ret re) 2 iF .UPPER_ROW GEQ 1 ! If row above present... 

: 405 46 BEGIN ! Top present 

> 240 46 CHSMOVE ( 

3; 2408 rt PP PP W_LABEL Br les! TO -ROv 2p : Ree 

3; 2409 4 3 -LDES C psciA A_POINTER fyWeshe, a OFF], ! Source 
: tt rt 4 5 PTRT C.PP CPP _¥_DST Lapel POFF Jay" 

; alg 47 CHSFILL { 

3; 261 474 -DCB_COCB_B_LABEL_ REND) ' Fill 

> 2614 475 “PP CPP WOLABEL BYTES 16 move} i Number 

; 415 ars PTRA C.PP"CPP_W"DST_LABEC_OFFJ4); | Dest 

; aig 228 r END; ' Top present 

3 rd rt ; END; ! Label in top row 

: 24 9 4 CSMGSK BOTTOM): 

3 2 : § 2 BEGIN ' Label in bottom row 

: 26 5 484 4 i* If row where label Lands is not on the pasteboard, no 
3 re ; "i 5 ? a movement will be necessary. 

> 26 6 487 4 iF .LOWER_RCW LEQ .WCB CWCB_W_NO_ROWS) ! If row below present... 
: 26 4 4 THEN 
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CHSMOVE 


SMGRTL.BU 


ABEL BYTES.1 T0 MOVE) eres 
POINTER pp usher ABEL _OFFJ, ! Source 
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“LABEL ES_16 eyed ! Number 
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END; Bottom present 
END; ' Label a bottom row 
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BEGIN ! Label in left column 


"i column where Label lands is not on the pasteboard, 
! no movement will be necessary. 


if ~LEFT_COL GEQ 1 
THEN 
! Left present 


! If column to left present... 


WLN e # in WCB buffer 
LCV’: REF VECTOR C, Byte), f Nae of Line 
{| gharacteristics vect. 


1; Local index 
WLN = (, pp tbP ie “Ost LABEL OFFI / 
B CwlB-w_NO C O53} ¢ 
LCV = cy wee ACI NECe 
SPOS = PP_@ "ost NEABEL Mis, 


a -1 EQL .PP CPP_W_LABEL_BYTES_TO_MOVE) 


} sranegser o°bp character movement 
IF tu normal or 
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B cPete” V_WIDE)) DWOH not oupserted 
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mn 
Sz z2o OCS <= 


Nn! 
{. target é toes CDSCS$A_POINTER) + 
tee ie LABEC_OFF) + .1); 
C. SPOS) = att) toca B LABEL REND): 
! Normal case 


— -—m 
PS at eee 


N ! Special case 


$ COSC 
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e W_SRC_LABE Le 

RAC ‘spit ie COtB BL 
NO; i Special case 


SPOS = .SPOS + .WCB CWCB_W_NO_COLS); 


A ee + 


ore 
OF F 54)! 
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=74 
RC sMab 1 SOUT. 832;1 


—P 


SAGER ISPLAY OUT 


85 


4 
4 
4 
4 
4 
4 
4 
4 
4 


SetscraTcs Se2 


at a nt a ss 2s 


NOUS WN OO OONOUS WIN O 


NOUS WN" ODNAY “W-“OOONOUSWH—OO0O 


PUPVIVIVLIVIVIVLUSVUSESUSUSUS VSS SUSIE TOIT 


SN NNN NOOO o PUPP SISISISISISIVIT SE 
4 2 PAPA 


VESRASS 


POPUP PVSPIAPPAP AMMA 


Resse 


SMGSDISPLAY OUTPU 
SMGSSDRAW_BORDER 


POA DIP PA DP SIND NINDS SII SID NAA AAP DTI IIT BB BE EF PNA ENA O 


= Output Virtual Displays b-J3 Jan-1985 74 AX-11 Bliss-3 P 5 
Move border ober thto 29001382 3; 23; 49 OMGRTL BUeRTTsMcoy Sous. B32;1 age $3 
Le, 
WLN = Ns 
END; 


character by character movement 
END; rf presen 
END; ! Label AL left column 


CSMG$K RIGHT): 
BEGIN ' Label in right column 


"it column where label lands is not on the pasteboard, 
t no movement will be necessary. 


IF gRIGHT.COL LEQ .WCB CWCB_W_NO_COLS] ! If column to right present... 
BEGIN ! Right present 
LOCAL 
WLN, ine # in WCB buffer 
LCV : REF VECTOR C, ByTe), f Addr of Line 
{| ¢haracteristics vect. 
iF ! Local index 
= 


(.PP_CPP_W_DST LABEL OFF) / 
.WCB uch w_NnO_C ist) + 1; 
S = .PP ir) 
Iu .1 €QL ae Pp~ “i Bec "bytes. TO_MOVE) 
é. Sey ae b _cherecter movement 


WLN If normal or 
PBCB 1 Bete’ Vv *U1De2) DWOH not supported 


PP w src ABEC_OFF) + .1); 
. sPos} a att toc B LABEL REND): 
END ' Normal ton 


Brein ! Special case 


I ! 
T C.SPOS) = “egg "tes "Ebscsa Pormmens + 
A 


SINDEX 
SCALC RIGHE 
PTRT C.S SINDEX} = _ a. otek CDSCSA, POINTER) + 
PTRA C. sinpénd = COtB.B weet TRENDS; 
END; Specia case 
SPOS” = SPs . uce WCB_W_NO_COLS); 


WLN = .WLN ¢ 1; 
END; | Character at character movement 
END; teak present 
END; ! Label in right column 


COUTRANGE): 
RETURN (SMGS$_FATERRLI®); 
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smge8 SMGSSDRAW-BORDER = Move border characters tato sodere19ne foiterts — Fement beSaesshcaysous ase. 1 Page $7 ; 
664A B : , 
50 08 A Bf MOV wCB_LCV, RO * 3 
e745 ee BC CLR { PPER ROW) CROJ : aan : 
50 20 =A ( BF 6S: MOVZWL aR 13, RO + 2258 ; 
51 oc A : C ADDL #6, WCB, R : ; 
2 ¢ MOV ¥L (R41), SPOS : : 
56 C cB SUBL SPOS, RO, SPOS pe ; 
i 4 BRB tos : : 
664A D3 7$ TSTB (SPOS) CPTRAI : ; 
D6 BGEQ.Sss8 : ; 
6649 08 B1sB2 ‘ , (SPOS) CPTRTI : ; 
6649 : DE 8$: MOVB #5, (SPOS)CPTRTI ; ; 
64A 80 BF E MOVE #=128, (SPOS)CPTRAJ : ; 
649 68 E 98: BICB2 # ($p08) feta : $3 : 
+ 50 16 AE OF €B 10$: #§ AOBLEQ 2 (sp) 1, ?$ : 33 3 : 
0 10 AE 000000A8 BF C F ADDL3 #168, PBCB, RO + 2267 : 
57 60 1 0 FC f CMP #0, #16, (RO), UPPER_ROW : 3 
50 10 A o00000AB Ft ADDLS #168, PBCB, RO. ; 2269 ; 
20 AE D4 C 118 CLRL (spy + 2277 F 
50 oc ac C1 F ADDL3 #2, uce, RO : ; 
58 60 10 14 CMP7V #0, #16, (RO), LOWER_ROW : : 
19 BGEQ 3=s«12$ : ; 
00 18 BRW 18$ : ; 
50 68 AE DG DOIN OVE UCB LCV, RO ; 2285 
6840 ; 3 1s16 i ER_ROW) CROJ : ; 
51 10 i 000000F A i i A ADDL #2°0, PCB, RI : 3 
FF OA MOV -1(R8), R7 : 2289 : 
51 oc A 0 ci A ADDLS #6, WCB, RI Ee : 
2 C F movzwe (RI), RO : F 
C4 42 MULL2 RO, R7 F ; 
6 oc Ac ¢1 4 ADDLS #6, WCB, (SP) ; : 
00 BE 2 65 at C OO14A moveS #0. (SPS, #32, aO(SP), (R7)CPTRT ; ; 
Oc ac 1 3 ADDL3 #6, WCB, (SP) > 2291 : 
00 BE i 6E oi 5 ; AOVES #0; <SPS, #52, @0(SP), (R7)CPTRA 3 : 
50 08 A MOVL WCB_LCV, RO : : 
684 B? CLRB. 5 Row) CROJ ; -_ ; 
50 0c aC 1 13 ADDL 3 #6, WCB, RO > 2296 F 
¢ MOV ¥L (rb), Rf ; ; 
1 04 AE ¢ ULL (spi R1 ; 3 
6 0 MOV YL eri) SPOS : 2295 : 
C ADDL2 1, SPOS ; ; 
CLRL } 3; 2300 3 
BRB 7$ 3 $ 
664A 148 TSTB © (SPOS) CPTRA) ; 3 
BGEQ 13s ; ; 
6649 B1SB2 ' { (SPOS) CPTRT) ; 3 
6649 15$ MOVB Hs (SPOS) CPTRT) ; : 
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¢ A b HOV. (SP), LCV + 2365 : 

6 AB f MOV yw 38CR115, SPO s : ; 
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ge ff ghee bos -_ 

6045 318: Isis — : 2370 ; 

51 10 AE 000000FA ' C ADDLS #250, pace, RI ; 2371 ; 
664A : F328: 1818 ists ; 237% ; 

6649 A A 81382 i » (SPOS) CPTRT) ; ; 

6649 A A9 33%: MOVB (SPOS) CPrAT) : ; 
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S$ ISPLAY_OUT SMGSDIS ss- P 
at 7 SnCSSF ILL WINDOW BUFFER = Fill window with virt 2-0ct-19 SMGRTL .BUGSRC JSMGDI SOUT .832;1 (20) 
3 2547 7 1 ZSBTTL necting th ¥iNDOW_B FFER = Fill window with virtual displays’ 

> 254 1 GLOBAL ROUTINE SMGSSFILL-WINDOW_BUFFER ( 

, ri ! PP : ne’ BLOCK C BYTE) 

> 2551 111 t+ 

; § \§ : FUNCTIONAL DESCRIPTION: 

: 4 tf 1: This procedure rebuilds the portions of the window buffer that 
3 5 18 1! need to be changed because some virtual dt splay has changed. 

3 $ O18 +! Rebuilding takes place from the 5 ‘ven asting packet down the 
3 ei : chain to the most=recentiy pasted pasting packet. 

: 83 $19 i CALLING SEQUENCE : 

; 61 6 1 ret_status.wic.v = SMGSSFILL_WINDOW_BUFFER ( PP.rab.r) 

; 8 6 : 1 | FORMAL PARAMETERS: 

Be RR 

; 208 6 $ 1/ PP. rab.r Address of pasting packet which 

: 256 6 1! determines the first display to be 

: $8 : 3 : } repainted. 

: 3 630 1 | IMPLICIT INPUTS: 

: $29) $8 | i NONE 

; 358 6 : 1! 

3 2574 6 1 IMPLICIT OUTPUTS: 

; sr8 $ ; 1 i NONE 

3 3 6 1! 

3 8 3 : COMPLETION STATUS: 

: : ve } SS$_NORMAL Normal successful completion 

; 642 1 | SIDE EFFECTS: 

3 645 1! 

3 644 1! NONE 

3 3 5 ver ' leo 

ig a en 

; es STATUS, ' Status of subr. calls 

3 3 ? PBCB : REF BLOCK C,BYTE), Address of pasteboard control 
3 ! bloc 

3; 259 6 

3 3 6 § WCB : REF BLOCK C,BYTE), ! Addr of current WCB 

: 2595 5 CURR_PP : REF BLOCK (C,BYTE); ! addr of 2 Longwords that form 
; ' queue header in PP currently 
: 3 ° $ ! under inspection. 

; 39 6 PCB = PP [PP A_PBCB ADDR]; 

; wCB = Peace CPBtB-A_WCB); 

: 26 ; ; 'e 

3 66 ! Change packet address to address of queue header. 


Ba Se Se Se Se Se Se Be Se Se Se Se Se Se Ge Se Be Se Se Se Fe Gs Se Ge SF Ge Se Se Ss Se SH Se Ge Ss Se BH Os Oe Os Os Ss OH Ss Os Oe 4 Os Oe Se See Sete Ge ae Sees 
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PLAY_OUTPUT = Output Virtual Displays B-Jan-t 5 169:4 AX-11 Bliss-32 V4.0-74 
LL_WINDOW.BUFFER © Fill window with virt 982 Fhi5h398 SRC 


s 2 
“Oct-1 SMGRTL .BUGSRC JSMGDI SOUT .832;1 


CURR_PP = .PP + PP_PBCB_QUEUE_OFFSET; ! Start with specified packet 
14 
——e for all pasting packets starting with this one to the last-pasted 


gaits -CURR_PP NEQ PBCB CPBCB_A_PP_NEXT] 


eres ! For all displays that need to be rewritten 
PP_BASE : REF BLOCK f , Mi ' Base address of the PP 
DCB : REF BLOCK C,BY é 3 } furrent virtual display that 
! needs to be repainted. 


! Since the queue headers for this part 
! of the chain are not at relative in 
! the pert ing packet. 
DCB = .PP_BASE CPP_A_DCB_ADDRIJ; ! OCB addr of this pairing 
_ (STATUS = SMGSSMOVE_TEXT_TO_WINDOW_BUF (.PP_BASE)) 
RETURN (.STATUS); 


14 

! If bordered, move the border characters into the text buffer 
4p — the bit in the attribute bytes to indicate a border 
' element. 


iF .0CB CDCB_V_BORDERED) 
IF _NOT (STATUS = SMGSS$DRAW_BORDER ( .DCB, .PP_BASE, .WCB)) 
RETURN (.STATUS); 
14 


i Update changed area fields in the PBCB based on Latest 
' contribution, 


iF .PP_BASE CPP_W_ROWS_TO_MOVE] NEQ 0 
THER 


BEGIN 
IF <PP_BASE CPP_W.FIRST_WCB_ROW] LSS .PBCB CPBCB_W_FIRST_CHANGED_ROW) 


PBCB CPBCB_W_FIRST_CHANGED_ROW) = .PP_BASE CPP_wW_FIRST_WCB_ROW); 
IF ,PP.BASE CPP_W.LAST.WCB_ROW] GTR .PBCB CPBCB_W_LAST_ CHANGED ROW] 
PBCB [PBCB_W_LAST_CHANGED_ROW] = .PP_BASE CPP_W_LAST_WCB_ROW); 
If PPBASE CPP_W_FIRST.WCB_COL] LSS .PBCB CPBCB_W_FIRST_CHANGED_COL] 
PBCB CPBCB_W_FIRST_CHANGED_COL) = .PP_BASE CPP_W_FIRST_WCB_COLJ; 
IF ;PP_BASE CPP_W.LAST.WCB_COL] GTR .PBCB CPBCB_W_LAST_CHANGED_COL 


P 74 
29° 20) 


es 
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SMGSDISPLAY_OUT SMGSDISPLAY_OUTPUT = Output Virtual Displays bJan- 5 21:49:46 AX-11 Bliss-32 V4.0-74 p 5 
mets SMGSSF ILL_WINDOW. BUFFER S Ftlt wladen & th virt 907138? 73:63:49 YONGRTL BuceRcIsMcoy sous .832:1 a9 053 
66 ? 1 ‘ PBCB CPBCB_W_LAST_CHANGED_COL] = .PP_BASE CPP_W_LAST_WCB_COLJ; 
: 266 7 : END; 
 $eee 55¢ , 
° 5% 
3; 266 7 § ' Walk this chain backwards, from the packet we started with 
> 266 7 i pack to the head of the chain <= since the most recently 
: 2e8 f 8 pasted displays are at the head of the chain. 
: 2670 730 CURR_YP = .PP_BASE CPP A. PREV _PBCB); 
3 erg 4 END; ! For all displays that need to be rewritten 
: 267 7 
3 2674 734 RETURN ( SMGSSMIN_UPD ( .PBCB )); ! Cause window buffer to be 
3 of? 4 2 ' output 
: 2677 737 (1 END; ! End of routine SMGSS$FILL_WINDOW_BUFFER 
007¢ 00000 ENTRY SMGSSFILL_WINDOW_BUFFER, Save R2,R3,R4,R5,= ; 
52 046 =A 00 0 MOVL PP, R2 : 
2 146 Ad 0 MOVL O(R2), PBCB ; 
$ 08 AG 0 MOVL (PBCBS, WCB 3 
5 08 A f MOVAB &8(R2), CURR PP ; 
54 3 p CMPL CURR_PP, t ; 
3 BEQL $ ; 
52 FB A 9 | MOVAB -8(R3), PP_BASE F 
5 10 A2 D MOVL  16(PP_BASES, DCB F 
52 DD PUSHL PP_BASE ; 
0000v cE Q FB CALLS #17 SMGSSMOVE_TEXT_TO_WINDOW_BUF ; 
2 Q £ BLBC STATUS, 8$ : 
OE 2e ASCE LBC 47 (cB) 2$ : 
0044 8F BB PUSHR wee »RO> : 
FACO CF FB CALLS oS SHGS$DRAW_BORDER ; 
60 E BLBC TATUS, 8$ : 
1c OA TSTW 8(PP_GASE) ; 
4C i BEQL ; 
51 00AB C4 CVTWL 8(PBCB), RI : 
51 2F A 10 6 t cMPZV ¢ , #16, 47(PP_BASE), R1 
008 £4 2F OA : MOVW  47(PP_BASE), 168(PBCB) ; 
1 OOAA CvTwL 39. 170¢ ; 
51 312 10 6 f CAPZV ‘ , #16, 49(PP_BASE), R1 : 
OOAA C4 31 OA MOVW 49(PP_BASE), 170(PBCB) : 
i OOAC CVTwL 2(PBCB) ; 
51 33 A2 69 CMPIV #0, #16, $1(PP_BASE), RI 
OOAC C4 33 ns ‘ MOV (PP_BASE), 172(PBCB) ; 
i OOAE CVTWL 4( cB) 1 : 
51 35° a2 0 69 FD CMPZ 40, #16, 53(PP_BASE), R1 ; 
BLEQ = 6 : 
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PASS 


090902 09 Co CD CD CD CD: 
DONOWVWLS Wt — 


PAEAEAPAAAA AO 


LFARANLS 


695 


sssese 


WN —O OOWO VE WN ("OO ONO UE UIN "0 0@ 
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DISPLAY OUTPUT = Output Virtual Dis 
GS$MoOV “TEXT.10.WINDOW BUF - Move tex 


ZSBTTL 'SMGSSMOVE 
GLOBAL ROUTINE SM 


AX-11 Bliss-3 
SMGRTL .BUGSRC 


text from display buf. to window buf.’ 
P ;: REF SPP_DECL 
) es 


§sheo sous .032;1 


XT_TO_WINDOW_BUF = Move 
MOVE TEXT _TO_u 


ee 

FUNCTIONAL DESCRIPTION: 

sur ine moves text from the buffer sereeas at 

s af .DCB C DCB_A_ATT 

S$ text must assume and is moved 

ated window attribute buffer. 

the alternate character set buffer at 
exists, it must be mapped into the 

window alfernate character f 

CALLING SEQUENCE: 

ret_status.wlc.v = SMGSSMOVE_TEXT_TO_WINDOW_BUF ( PP.rab.r) 
FORMAL PARAMETERS: 
Address of pasting packet. 


IMPLICIT INPUTS: 
IMPLICIT OUTPUTS: 


COMPLETION STATUS: 
Normal successful 


: REF BLOCK C,BYTE), 
PBCB : REF BLOCK (,BYTE), 


virtual display 
lock. 
pasteboard control 


OUT_LINE_CHAR : REF VECTOR (BYTE), 
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SMGSDISPLAY_OUT SMGSDISPLAY_ OUTPUT = Output Virtual Displays Jan-1 149:4 AX-11 Bliss-32 V4.0- Page 78 
inoP 8 = SnCSeROVE _TEXT_10 "WINDOW BUF - Move text thon d 3: -Oct-1 138 $3363: 49 OMGRTL BUSERCISNGDs SOUT. B32;1 ° (21) 

737 wCB_COLsS, ! Extracted .WCB CWCB_W_NO_COLS 

7 DCB- COL : Extracted .0CB [OCB W"-NO_COLS 

7 ] FROM_INDEX, ! Pointer into DCB bufférs 

74 7 ! Pointer into WCB buffers for normal mapping 

741 9 SPEC_TO_ INDEX, : Pointer into WCB buffers for special mapping 

rg RE BORDER : INITIAL (0); ' Fle aq to indicate that t 

74 § ' border elements need to be 

744 bz ! remapped because some Line 

745 ' changed from normal to DWDH or 

rs B2 ! vice versa. 


MACRO 
SMAP ChSMOTE (BP 


OOONO 


<A CPP_W_MCVE TbUF) ¢ ! Length 
DUB-A_TER -FROM_INDEX, ! Source 


eS > I 
—O00 


: gre 

: re 

38 

; , : i : ; bee uCB> “A-TEXT“BUF) + .TO_INDEX); | Destination 

: 2754 1 ' 

> 2755 M 2814 SMAP_LINE SPECIAL = 

3: 2? § M 2815 CHSMOJE ( (.PP CPP_W_MOVE LENGTH 1)/2, Length 

> 27 i 1 .0CB CDCB_A_TEXT_BUF + . FROM INDEX Sou 

; 738 M 281 WCB CWwCBTA~ TEXT" “BUF SPEC-TO_INDEX); ‘ Dest ination 
> 275 18 x, 

; m 0 SMAP_ATTR_NORMAL = 

3 " CHSMOVE ( +a CPP_W_MOVE LENGTH], ' Length 

: * 2 DUB-A_ATTR BUF] + .FROM INDEX, | Source — 

: Mi ; : pee WCB-A-ATTR-BUF) + .TO_INDEX); | Destination 

: 5 . 

: a : SMAP_ATTR gSPECIAL, = 

; 4 CHSMO (, 5p PP_W_MOVE LENGTH)- -1)/2, ' Length 

; ¥| 8 DCB_A_ATTR_BUF + .FROM_ INDEX i Source 

; 4 : bee WCB-A_ATTR-BUF) + .SPEC-TO_INDEX); ! Destination 
: 1 ; 

; : SMAP_ALT_CHAR_NORMAL 

; A" TF mi C6CB_A_ CHAR _SET_BUF] NEQ 0 

: mM 2835 tH VE ( PP CPP_W_MOVE_ LENGTH), ! Length 

: a DCB-A_CHAR_SET _BUF $ FROM INDEX, !' Source 

; 8 . bee WCB-A~CHAR-SET-BUF) + .TO_INDEX); | Dest. 

; " SMAP_ALT_CHAR_SPECIAL 

; ‘ tr ine COCB_A_ CHAR. SET_BUF] NEQ 0 

: "4 j SHOVE ( (PP Pre ti Move LENGTH)- 1/2, Length 
: M 2844 OCB K_CHAR_SET_BUF FROM_INDEX i Source 
; = : : WCB pee A-CHAR-SET-BUF) + .SPEC"TO_INDEX); | Dest. 
; ™ SCLEAR_TEXT_LINE = 

: a Cer TLL” a WCB_W_NO_COLS) ey I-4 

; 8 . .WCB MCBUATTERT BUF S + WLP); | Destination 


ts OUT Sneeenove. 


> in > 


PEIN OO NOE UI —ODO9 WOU UO Doe ono 


t one ay the WCB and in 


Y OUTPUT = Output Virtual Displays Slane 
TEXT_T0 “WINDOW BUF - Move text tron ¢ =3er 882 


SCLEAR_ATTR_LINE = 
CHSFILLC 0, NO cous 


WCB_W 
: WCB-A-ATTR_ $4 + WLP); 


SMAP_ALL ” ptt = 


a LINE NORMAL; 
SMAP"ATTR-NORMAL ; 
SAP ALT_CHAR_NORMAL; 


ns ~AUT CHAR LINE = 
DCB COCB_A_ CHAR SET BUF] NEQ 0 


CHSFILL ( .. 
WCB _W_ “CARR COLS 


], 
UCB WCB"A 


LS 
AR_SET_BUF) + .WLP); 


SMAP_LINE_SPECIAL; 
SMAP“ATTR- SPECIAL: 
SMAP~ALT_CHAR_SPECIAL; 


J 
23 
aan 


CHAR); 
if CHARI; 
$ 


“getore ivergi two copying paths, check to 
| f° oF involved vith aiterns ° A ; 


ate, aracter set buf 
B but does nor yet exist in the WCB, we 
tialize it. 


IF .0CB (DCB_A_CHAR_SET_BUF] NEQ 8 AND 
wi” WCB-A_CHAR-SET~BUF J EQL 


2:58:13 YeManteSousac 


ee if we are going 
ers. If one exists 
have to allocate 


§smebisouy. 832;1 
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engee SMGSSMOV ATER] 10. WINDOG BUF = Move text tron d ae SF $3:83:49 SMGRTL .BUGSRC JSMGDI SOUT .B32; 1 
BEGIN ! Alloc. and init. window alternate char. set buffer 
STATUS; ! Status of LIBSGET_VM call 


IF NOT (STATUS = LIBSGET_VM ( WCB (WCB_L_BUFSIZE), 
THEN WCB LWCB_A_CHAR_SET_BUFJ)) 
RETURN (.STATUS); 


CHSFILL ( 0, .WCB Cuca BUFSIZE], .WCB CWCB_A_CHAR_SET_BUF J); 
END; ! alloc. and init. window alternate char. set buffer 


+ 


At phis oint we need to decide whether we are dealing with either 
a virtua He 1 or a window control block snat includes either 
Double-Wide (DW) and/or Double-Wide/Double-High (DWDH) Lines. 

We can tell whether either is non-standard by looking at the zeroth 
byte of its Line choracter istics vector. 

If we ere dealing with either non-standard, we need to deal with them 
on a Line by Line basis. 

For each Line to be mapped we implement the logic summarized in the 
following table: 


DCB Line WCB Line Mapping 
Char. Vect Char. Vector Action 


Not DW or DWDH Not DW or DWOH Map norma! ly 
(i.e., normal) (i.e., Normal) 


SI sd oe 


SerTouSun—o 


2.0909 09 09 C9. CD CD CD CD 


Not DW or DWDH DW or DWDH i? DW supported 
e 


(i.e., normal) n 
Blank entire WCB text Line 
map normally 


Sooo 
MEWwN— 


map normally 


8 


DW or DWDH Not DW or DWOH i? DW supported 
en 


-@., normal) 
Blank entire WCB text Line 
use special mapping 


map normally 


200000000 0 
S$Stae= 


3s 


DW or DWDH DW or DWOH i? ov supported 
e 
Use special mapping 
€ 
Map normally 


EX = .PP [PP_W_FROM. INDE); 
= [PP CPP"W"TO_IRDEX); 


SMGSDISPLAY OUT 


Se Se Se Se Ge Se Ge Se Ge Fe Fe Ge Ge Ge Fe Ge Ge Ge Fe Ge Fe Ge FF SSS Ss Ge Os Se Se Se FF Oe Se SF Se Se Ge SF SF Ss Ss Se SF SF Hs SH S5S5 Ss oe SEOs SH Se ee ees 


MEUM —OVONOUVUES WN" OOONOULS UNO 0OO 


WN—o 


SBT AE UN SOBER 


SMGSDISPLAY 
SMGSSMOVE _TEX 


7 


> > 


COOODDOO0CO0O0 DO 


NOUS WN ("OO OONAUS W000 


DOOOOOO 


5 Oo N 


Wr 


S33 


SSS332 


Saal et ee et ee ee ot esas heal et et oe de YP oe eo oe oe oe oo oY oy oy oy oP ot > 


2¢ 


“$44 


+ 


2s 


2s 


2s 


PUT = Output Virtual Displays b-Jane1 74 AX-11 Bliss-3 

10 “WINDOW BUF - Move text from d =30n1 38? #}: 3: ' CNGRTL BUGERe ISMCDy SOUT .832; 1 
IF .IN_LINE_ CHAR EQL 0 AND ' DCB normal 
UF -bintt tie Ct £8} Et 8 


! WCB normal 
BEGIN ! Both are normal -- no special action needed 


"check to see if we can do it with a single CHSMOVE or whether 
| we must do it a row at a time. 


if_.PP CPP_V_CONTIG) 
THE 


BEGIN ! Can be done in single move 

! Move ont. 

CHSMOVE ( P CPP_L_MOVE S$ z€J, ! Length 
‘pce't DCB_A_TEXT_BOF «FROM INDEX, : source 
“WCB WCB_A_TEXT_BUF ~TOLINDEX); ! dest. 

! Move attributes 

CHSMOVE ( .PP CPP_L_MOVE ! Length 

CB COCB_A_ATTR VB0F Rom INDEX, ! source 

“WCB WCB-A_ATTR_BUF) + .TO_IRDEX);  ! dest. 


' Move alternate c 
ae a DCB_A_CHA 


BEGIN ! " 


BS 

A 

A 

ne acter gee are pieces, if necessary 
re - i 


ornate. chere ter set 

ab .M0 Length 
Toce. a “ERR. Veer. it «FROM_INDEX, ! Source 
WCB" A_CHAR_SET_BUF -TO_LIADEX); ! Dest. 


END; “ Map alternate shirester set 

END ! Can be done in single move 
ELSE 

BEGIN ! Must be done row at a time 


jacr R FROM 1 TO .PP CPP_W_ROWS_TO_MOVE) 


BEGIN ! For all rows in this display 
$MAP _LINE NORMAL ; 
SMAP~ATTR_NORMAL ; 


FROM INDEX = .FROM INDEX + .DCB_COLS; 
TO_IRDEX -TO_IRDEX + .WCB F0Ls; 
END; ! fer “all rows in this d splay 


'¢ 
Move alternate character set buffer pieces, if necessary 
if -DCB COCB_A_CHAR_SET_BUF2 NEQ 0 
NBEGIN ! Map alt cnete character set buffer 
torn INDEX = = PP fpr y _FROM_IND x2; 
_ IRDEX «PP [PP=W"TO_IRDEX); 


INCR R FROM 1 TO .PP CPP_W_ROWS_TO_MOVE} 


Page f) 


PERU O0T ERLE Geet Rots uae Arta a EHRHNE AISESHS | WMG SUAER MSR way cl 


4 EGIN 
3e4 5 BRAP ~ALT_CHAR_NORMAL; 
3 FROM_INDEX = .FROM SNOEK + .DCB_COLS; 
me * = .10_ INDE + .WCB_COLS; 
: END; ! Map alternate character set buffer 
9 END; ! Must be done row af F tine 
. END ! Both are normal -- no special action needed 


oreie ! One or the other contains special characteristics 


DLN, ' | Mictyel = Line number 
ne numbe 
WLP; Byte offset corresponding to WLN 


'¢ 

! Must deal with this mapping on a row by row basis and on 

! each con inspect the Line characteristics vector catty of 

' both the DCB Line characteristics vector and the WCB Li 

. characteristics vector in order to determine how to map this 
particular Line. 


z 


OOO NO AE WI O OO NA NEW ODO MOU 


t Initialize the special index we will be using. 


SPEC_TO_INDEX = (. +n cre Hq -fIRST WCB ROW] -1) * 
B fete WNO COLST + 
(C, “BP EPP 9 FIRST _wCB cou} #2) / 2) =1; 


Ns (ER nf. -£0 ) +1; 
aN = (PERRIN HnGy BER ROUN 
MUP = CULM <A) er ueBS Coates 


INCR R FROM 1 TO .PP CPP_W_ROWS..10_MOVE 


1% 

008 4 BEGIN ! For each row 

200 & IF .IN_LINE_CHAR -DLN) EQL 8 AND ! DCB normal 

1005 : THERE at ENE. CHAR »WLN) EQL ! WCB normal 

100 EGIN ! Normal Line 

1008 ALL NORMAL | 

1005 END Normal Line 

010 4 ELSE 

301 BEGIN ! Special Line 

518 IF .IN LINE CHAR DLN oot : 8 AND ' DCB normal 
1? jour. LINE_CHAR C.WLN ! WCB special 
‘ 

1015 EGIN ! WCB has special, DCB normal 

OS a ee cpece_ V_WIDE) ! If DW supported 
01 GIN ! Special mappin 

Bs BtLEAR A nish _ 

t 

55 END “Atte a mapping 


ESGIUSTUA.OU" SRGRASTE ATE RTUT aMPube VT HaMs SUITE, g CRIME TURN Yat 


? ELSE 


33-3 2 Page 83 
SHGRTL -BUGSRCISMGD 1 SOUT.832; 1 29° ah 


EP at ; ate mapping 
TRormat mappin 
WCB has special, DCB normal 


eno * 
ELSE 


IF + LINE CHAR [.O0LN) NEQ 0 AND ! DCB special 
OUT_LINE_CHAR C.WLNJ EQL ! WCB normal 


BEGIN ' ocB seGibe WCB normal 
IF ,PBCB CPBCB_V_WIDES ! If DW supported 


! Map special 
StLeAR ALL; | PSP 


SMAP AACL “SPECIAL: 
! Map special 


MEAN —OOODNAOULS Wir 


Cooooo 


BEGIN ! Map normal 
SMAP WALL NORMAL 


ND; 
ne” ! ocB iota. t ucB leaiesl 
BEGIN ! Both have special 
twee CPBCB_V_WIDE ‘ + DW supported 


CSSSSESLESISSSLSS ESSE F 


oO 
wr 


BEGIN ! Map special 
a ALL ~SPECIAL; 


PEPSEL ESE POSS eee eeeeS 


=O OONAOUS WI —OO0O@ 


Map special 


wiw 


“a ! Map normal 
AP ALL ~NORMAL 
normal 


Rie & 
END ens” "! Both have special 
1, END: "! Special Line 
Advance indices for next row 
FROM_INDEX -FROM_INDEX + .DCB_CO'S; 
EX .T0_IRDEX + .WCB-COLS; 
SPEC T0 INDEX = = {SPEC_TO_INDEX + :WCB7COLS: 


ah th bbl 


~~ 
"al 
ODONOUEWwity 


N= .DLN ¢ 1; 
uth = ,WLN + 1; 
WLP = WLP A WCB CcOLS; 
END; ! For each row 


END; ! One or the other contains special characteristics 


f this ¢d vice supports DW or DWOH then we must vedere uC WCB’s Line 

haracteristics vector based on the fous we just modif 

; bur cher actions are necessary only if DW or DWDH is” ee by 
s device. 


if -PBCB CPBCB_V_WIDE) 
HEN 


PROPRIRIPIPIPIPIPININI HEE BB BB EE EE END NICD OD I 0D09 09 SI INI OD OD ICD OD OD OD INI NIO OAH 


ao a ae a a ot a tt tt et a a ts a a se ss ot cs a tt a a 


tn ubunbieeene 
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ngR8 mCSSROVE _TEXT_10 “WINDOW BUF - Move tent. fron d 2-0ct-1984 13:33:19 USnGRTL BuesRcdsMGbI SOUT 832; :1 sat PS) 


BEGIN sBthous 8 pportsd 
[ re tp ROWS_TO_| 


BEG 
ti IPP CPP_W_ROW] GTR 0 
THEN | 


NEQ 0 ! Something got mapped 


ta ed ad ad tt 


by pare wpe. the Row Ft S abves, row 


dur’ tne” CHAR LC .PP CPP_wW_ROW])) 
sort povenent from nth re'2 lay row 
in PP_W ant Vv 
in, -LINE-CRAR oe DCB W_NO sie | 


ROWS_TO_MOvVE 
OUT_LINE _CHAR ‘ay: 


5 a te ee ee ee 


DONA MAE" OODNOU LE WO 0 


‘+ 
! If we are deal ing with a bordered display and we have 

! made the transition from a normal Line to a DHDW Line, or 

‘ vice versa, it will be necessary to remap the border elements. 


if pce 8 CoCo. V BORDERED] AND 
wen 


BEGIN 


33233 


PAA MUIIUII ES & 


AL 
STA ; ! Status of subroutine 
IF NOT (Status = SMGSSDRAW_BORDER ( 


RETURN (.STATUS); 
ND 


call 
-0CB, .PP, .wWCB)) 


'e 
Check throug? current WCB Line characteristics vester 
i aN of the elements is non-zero, set OUT_LINE_CHAR (0) s ie 
encountered non-zero value. 


if pe CPP_W_ROWS_TO_MOVE) GTR 0 
BEGIN ! Some mapping took place 


YTES_REMAINI ! Output from SKPC 
FOUND-BYTE : Ret VECTOR C.BYTE); ! Output from SKPC 


HAR CO ill be found 
Skee (ih FCO) ize te tute_v no. nove OUT. LINE “CHAR (09; 
YTES_REMAINING, FOOND=8 


aE -BYTES_REMAINING NEQ 0 ! If non-zero found 
“out LINE roe CO] = .FOUND BYTE (0); 


ome mapping took place 
END; |! Special supported “” 


PDR R BB BB BBE EE FE MAMMA MAMNMAE BBE & PE MAAMAANMAANMANHE BPP PPP PPP PEE PW 


Se Se Oe Oe Oe Oe Oe Se Be Oe Oe Be Se Se Se Ge Se Se Ge Ge SH HH Se Se Ge Se Ge Ge Se Os Ss Ge OH se Ss Ge SH S4 Ss SH Ss Os Oe Os Oe SF Os Oe Ss Se Ss Se S585 es Se ee 


ee ee ee ee ed ee ee ce ee el ee el ee el el el el cel eel el el cel cel ee eel cel cel cl cl cel el cl cl el cl cel cell cel cel cl cel cel cece els cel cel 


PEN LESSLEAPENAS SSNS AFA SSSISEAFARLS 


a a a eth a et ad a a a a ss a st ns ts as ws Ls ss 


SFELNASSSVSERREN LS Sas Aran =SSeSVESFALLS 
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: 31 195 
; 313? 3136 ; RETURN (SS$_NORMAL); 
: 3138 19 END; ! End of routine SMGSSMOVE_TEXT_TO_wINDOW_BUF 


OFFC 00000 .ENTRY SMGSSMOVE_TEXT_TO WINDOW BUF, R2,R3.- ; 

RORSRORTARBTROTRIOURIToe | ave R2RSe~ 

. i St? Alot : 
oa t a Ma : 
50 06 AC 1 ADDL # PP, RO : 
50 E p ADDLS #8, PBCB, RO : 
8 MOVL (Rb) wcé : 

6c OA PUSHL  76(D¢B) : 

¢ ~AB PUSHL  44(WCB) : 

7E ag MOVZWL 6(WCB), WCB_COLS ; 

7E A MOVZWL 6(DCB), DCB-COLS : 

18 «OA? PUSHAB 24(DCBS : 

468 AE CLAL (SP) : 

BF TSTL (SP) : 

BEQL $ 

48 AE INCL (SP) F 

1 a8 TSTL  16(WCB) ; 

1 BNEO : 

#8 Smelt} 7 

000000006 00 03 CALLS #2, LIBSGET_VM ; 

1 BLBS STATUS, 1 : 

RET ; 

28 «AB 00 ry 3 * 00 MOVCS #0, (SP), #0, 40(WCB), a16(wCB) ; 
so a i woOLS #3R, PP, RO) : 
50 06 AC ADD ¥ #32, PP, RO : 
Sk mov2we (ROS 16_ INDEX ; 

9 AE 19 A MOVAB 16(D¢B), ~48/SP) ; 

AE 0 Ag MOVAB &(WCB), 40(SP) ; 

C AE 4 OA MOVAB gcoces, 44 (SP) : 

4 AE of AB MOVAB (WCB); 36(SP) : 

BF S18 gJNLINE CHAR ; 

0c e Pie T_LINE_CHAR : 

BEQL 4 3 

BRAY 1 $ ; 

7E 04 ac A ADDL3 #2, PP, =(SP) : 
3¢ 1 C #i, acsh)+, 5$ ; 
3 MOVL  a66(SP), § ; 

MOVL. a48(SP); : 

7E 06 OA ADDL § #43, PP. =(SP) : ; 
684A 694 MOV a(56)+, (RODCFROM_INDEX}, (RBCTC_iNDEX] =: 
3 34 8 MOVL  a36(SP5, ; 

C 8B MOVE (SP); R : 


13 “11 Bliss-3 V8 0-742 Page 95 
=Jan=1985 21:49:4 SMGRTL® btacSsmooisou -B32;1 
Mee ee aoey URS RAOVE TERT. 10. WINDOR TK a Rue Displays. Go Jonnt 98s 12:88:18 + ESMert “bd 
ali 04 694 : f HI poe Psp) 8 : $98 
MOVL : 
5 00 Hy AboLg ety PreertrRon INDEX], @16(WCB)CTO_INDEX] ; ors 
59 06 ac 8 th woveS cad, : : $873 
10 BB4A 684 i CB Bes ASS. opp. RO ; 
1C ¢1 000CD 58 ADDLS 5 hs ; 3010 
50 0 A §. 800 mOvZw. (ROS, R 
5 £ 0000 CLRL soos 
A 11 0000 PUSHL @40(SP) : 
8 BE Bb doone bunt as7(3e) ax ; 
A ; c} of ADD} 9($6)%. a(S) *CFROM_INDEX, @(SP)+~ ; 
EGA OF oes E €4 INDEX) * 3006 
4 BE DD QO0EA PUSH sietee) 
$0 DD OO0ED ADDLS #34. PP, =(SP) P)+- ; 
7E 06 AC 33 c} FO Seve a(sh>s, @(SP)+CFROM_INDEX], a(S ; 
oe ‘fe BEB“COL$. FROM, INDEX 3 3008 
6 4 AE CO 00088 ADDLS. UCBTEOLS, TOCINDER + 300 
A . zg: AnpLEG RGR, 6k : 301 
8 ; 6B AE ED 0107 8: Brac, 7e(sPi. 128 : 
50 06 AC 1 g ! nove L Re INDEX > 3020 
56 ADD a ; 
50 04 AC ci i mOVEWL (ROS, TO_INDEX ; 3022 
SA 4 00118 CLAL ts + 3024 
1B 31 Ool1D BLeC © PStSP), 108 ; 
OF 4B AE ED OOIIE 9S pie 05 3)" ee ; 
AC 33 ci 138 ADD 9(SP)¢-‘a(SP)*CFROM_INDEX}, @16(WcB)- 
4; ees E 26 00128 = Pro, INSER : 3037 
oe oe DCB-COLS, FROM, INDEX 
6 0 AE C +9 108: ADDL WCB-COLS, TO_IADEX : 5 3 
3 : K f DO1sA 118: AOBLEG AG, R, 98 : 3967 
et Oye ai Reizt | : ADDL #47, PB. RI : 
< ae i i 40128 DEL RO. gsr : 3053 
‘+ MOV 6(ucB), 6 pao 
A 6 4 te (SP); R ; 30 
7 f aa ck 061 ADoL 5 PB Re ; 
$2 0 A St 00189 MOVZWL (R25 
1 018 IMS AB" Rt INDEX ; 
001 5F “it 0), SPEC TO ; 3056 
1 +: v RIDCR : 
20 A FF ae 55 8 stn DCB_COLS, From_IRDER, R t uess 
* Ft ole ROviML (ROS, WEN ; 3058 
" 9 i 091 3 MOVABS <ACRB) “RO : 
fe OB 991 MULL wee cOLs, RO, WLP : 3060 
1C = 8 } 001 ADDLS #287 PP, RO 
of 0% AC 


SMGSSMOVE_TEXT_TO_WINDOW_BUF = Move text from d 


14 
SPGSRISPLAY OUT SMGSDISPLAY OUTPUT = Output Virtual Displays B-Jan-19 
1-07 “Oct-19 


48 AE 3 186 
50 9 AC 23 cf 18A 
4 AE F 1 f 
ott HB 
51 10 5 04 ! : 148: 
694) ; ir 
es Site 
51 Oc A 1A6 
ot IM 
015 TAF 15$: 
51 14 AE QOOOOOFA 8F gt 1B2 168: 
40 AE 3 3 1BB 
6D 0 € 1BF 
50 oc A 3 1C2 
oe Hs 
EO 40 BE €9 001CB 
38 = AE 28 =«O«#BE 1c OA 4 O1CF 
3C AE 20 6E 38 + C 5108 
40 AE 24 —=sC#BBE 1c OA + at; 
3C AE 00 6E 40 a C See 
40 AE 04 OO1ED 
oH 
40 AE 06 001 
38 = AE 10 AB 1C =6AE «C1 QOTF 
3c AE 00 6E 38 4 ec oir 
18 AE 1 00 0 7 178: 
8 BE 0D 08 
4 BE 4 oF 
9ESA 9E46 C «6BE 1 
aS BF op ot 
9E4A 9E46 C BE 08 O21E 
nr mn) 
oF 1 C 188: 
50 10 A e 4 198: 
f 
o8s | 
50 oc A 208: 
wll $9 
7F te 
78 40 BE € 4 
40 ar 28 «BE 7.) @ 4 48 
3C AE 2 6€ 00 2c ef 


——————_————_ 


9 AX-11 a TS V4.0-742 
SMGRTL .BUGSRC JSMGDISOUT.B32; 1 


, 72(SP) 
p 
, 52(SP) 


= 


ODBVWOLCOSVvZooe Www 
ofo 


ee 
— 


IN HAR, R1 
WICRTS 


: 


-_e 


INE CHAR, R1 
R1] 


- PBCB, RI 


4 (SP) 
WUT _LING_CHAR, RO 

(W ab tris 

a64(SP), 15$ 

LP, a40(SP), 56(SP) 

#0, (SP), #32, 60(SP), a56(SP) 


WLP, @36(SP), 64(SP) 
#0, (SP), #0, 60(SP), @64(SP) 


64 (SP) 
9955?) 


DWAR D-DD 
aor >NeWer a 
~-oO 
ae 
o 


—-9o 
eo 


17$ 

64 (SP) 

i 16(R11), 56(SP) 

#0, (SP), #0, 60(SP), @56(SP) 


#1, RE BORDER 
(SP 


i 


gy 9 SP) +CP ROR INDEX, a(SP)+- 


ms 


._ o-rwwOww~s 
oe 


~ZvVvVUZzZV0VU 


eg Safe set a(SP)+- 
$ 


LINE CHAR, RO 
NI EROS 


ouT LANE CHAR. RO 


(WLA) 
Srp. pub ( Se) 64(SP) 
#0,’ (SP), 933, 60(SP), a64(SP) 


Pee Oe Se Se Be Se Be Be Se Se Be Se Se Be Oe Se Bs Be Se Be Be Be Bs Pee Se Se Se Be Be Se Se Be Ge Be Be Ge Be Se Se Be Ge Be Se Se Ge Ge Ge Ge Be Ge Se Se Se Se Be 


Page 8) 


3066 


3063 


3078 


3088 


3089 


092 
094 


—Yy 


Pete Se Se Se Ge Ge Fe Fe Ge Se Se Se GS) Se Ge Se Se Fe Se Se Ge Be Ge Be 
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40 A 24 «BE 10 «(AE C1 7 ADDL3 WLP, @36(SP), 64(SP) ; 
3C AE 08 6E ' 0p gt f mMovCS #0, (SP), #0; 60(SP), a64(SP) : 
40 AE D4 CLRL  64(SP) ; 
00 BS OE Obsee Beat |S 
; 40 AE D6 oF INCL 4(SP) : 
28 AE 10 AB 1C Ar g ADDL3 WLP, 16(R11), 56(SP) : 
3c AE 0 6E “ 060 2 £8 MOVCS #0, (SP), #0. 60(SP), @56(SP) : 
18 AE i po 5 21$:  MOVL #1, RE_BORDER : 
38 AE , BE 36 4 MOV ZUL 934 (SPY, 56 (SP) + 3095 
38 AE 0 C6 aC DIVE Fs 56 (SP) : 
7E 28 OBE 20 AE C ADDi3 SPEC_TO_INDEX, a40(SP), =(SP) : 
4 BE Bp 0 9% PUSHL @52(SP) : 
9E 9E46 40 AE 0 MOVC3 64(SP), @(SP)+CFROM INDEX], a(SP)+ : 
7E % 68 @0 AE C1 0029F ADDL SPEC TO_INDEX, @36(S5P), -(SP) : 
0 BE Bp 02A5 PUSH a48(SP) : 
9€ 9E46 40 AE 28 002A8 MOVCS 64(SP), @(SP)+CFROM_INDEX], a(SP)+ : 
7F 40 AE €9 0 A BLBC_ 64(SP), 25$ : 
7E 10 AB 20 AE C1 0028 ADDL3 SPEC_TO_INDEX, 16(R11), -(SP) : 
4 BE p 028 PUSHL  @4(SP) : 
9E 9E46 40 AE 02BB MOVC $4 (SP), @(SP)+CFROM_INDEX), a(SP)+ : 
6— 11 002C1 BRB 5$ : 3092 
40 40 BE 59 0 ci 22$:  BLBC 064 (SP), 23$ + 3105 
40 AE ‘4 «BE ¢ 02¢ MOVZWL @52(SP). 64(SP) : 3107 
4) AE D7 O02CC DECL 64(SP) : 
40 AE 02 C6 0 CF DIVL2 #2, 64(SP) : 
7E 28 «OBE 20 AE (C1 D3 ADDL SPEC TO_INDEX, @40(SP), (SP) : 
4 BE op 02D PUSHL @52(SP) : 
9E 9E46 48 AE 0 D MOVC3 72(SP), @(SP)+CFROM INDEX], a(SP)+ : 
7E 24 «BE ‘ RE C1 OOCE ADDL SPEC TO_INDEX, @36(SP), -(SP) : 
BE p 0 E PUSH, a4 (SP) : 
9E 9E46 48 = AE EB MOVC (SP), a@(SP)+CFROM_INDEX], a(SP)+ : 
00 BE D5 0021 TSTL  a0(SP) ; 
B 1 F4 BEQL 25$ : 
7E 10 AB 20 AE C r6 ADDL SPEC §TO_INDEX, 16(R11), =(SP) : 
9€ 9646 48 «AE 28 FF moves 23(3P). @(SP)+CFROM_INDEX], a(SP)+ ; 
2A 11 5 BRB 25$ : 3105 
8 BE DD 23$: PUSHL @40(SP) : 3111 
4 BE 2 A PUSHL  @52(5P) : 
9E4A 9646 : & MOVC at (SP) 9(SP)+CFROM_INDEXI, a(SP)+- ; 
TO_ INDEX ; 
4 BE DD 00314 a36TSP) ; 
0 BE Bp 17 PUSHL  @48(5P) ; 
9E4A 9E46 C BE 1A MOVC 960(SP), @(SP)+CFROM_INDEX1, a(SP)+- ; 
00 BE 05 1 TSTL $0(SP) : 
4 BEQL 5 ; 
99 BE op 248 PUSH a0(sp) : 
10 BB4A 9E46 BE MOVC 936(SP), @(SP)+CFROM_INDEXI, @16(WCB)- : 
6 6 Ae C 1 25$:  ADDL2 = DCB=COLS, FROM_ INDEX ; 
A 6 AE ¢ 3 ADDLe WCBICOLS. TO_IRDEX : 
20 AE AE C ADDL2 WCB7COLS, SPEC_TO_INDEX : 
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59 D 3 INCL DLN : 3123 
Dd 4 INCL WLN 3 3126 
«4 0 AE i 4 ADDL2 ¥ B_COLS, WLP + 3125 
FEGA 44 AF 0 48 AE OF 4 365: ACBL (SP) Wi, R, 148 : 060 
5 14 AE QOOOOOFA BF C1 -O034F 27$:  ADDL3 #250, Pace, Rr8 + 3136 
6D 8 €9 28 BLBC_ (RB); 3 : 
50 04 A 1 ADDL3 #28, PP, RO + 3139 
8 i peu sap. : 
51 04 =A ADDL3 #24, PP, R1 + 3142 
5 6 A CVTWL = o(R1S, RO : 
0 D BLEQ 28% ; 
59 OC AE OD F MOVL_  OUT_LINE_CHAR, R9 + 3147 
SA 10 AE y 1 ; ADDL #1, IN LINE CHAR, R10 : 
6049 6A 26 8 £8 move RS, (RTO), TRO)CROJ ; 
50 02 3 7F 28$:  MOVZWL $75cB), RO + 3152 
56 ] SUBL ¢ RG, RO ; 
59 Oc AE 01 ¢ 86 ADDLS #1, OUT_LINE_CHAR, R9 + 3153 
SA 10 AE p MOVL_ IN_LINE~CHAR? R : 
69 01 AOGA 36 af MOVC3 RG 1¢R0) (R163, (RO) : 
15 rg 5 29%: LBC (pce), 30$ ; 316 
01 8 AE 01 00399 CMPL ORDER, #1 : 316 
oF 12 00390 NEQ ; 
B DD 0039F PUSHL WCB : 3168 
04 AC DD 003A1 PUSHL PP : 
DD 003A4 PUSHL DCB ; 
F6OBA CF : FB 003A6 CALLS #3, SMGSSDRAW_BORDER ; 
1D E9 003AB BLBC STATUS, 32$ ; 
50 046 ac if C1 OO3AE 30$: ADDL3 #28, PP, RO : 3178 
6 83 B TSTW {ROS ; 
111 B BEQL 31 ; 
oC 3 B CLRB aouT LINE_CHAR + 3185 
OC BE 02 AB BA SKPC #0, 2(WCBY, @OUT_LINE_CHAR ; 3186 
30 p C9 ist YfES_REMAINING ; 3189 
oc 8B 61 9 C4 MOVB (FOUND_BYTE), @OUT_LINE_CHAR : 3191 
5 1 00 003C8 31$: MOV. #1, RO : 3196 
04 003¢B 32$: _—RET : 3197 


; Routine Size: 972 bytes, Routine Base: _SMGSCODE + OBED 


; 3139 3198 1 !<BLF/PAGE> 
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SMGOCCLUDE = Check for occlusion - SMGRTL ..BUGSRC JSMGDISOUT .832;1 (22) 
; 3141 199 1 XSBITL *SMGOCCLUDE = Check for occlusion’ 
3 128 80 1 GLOBAL ROUTINE SMGSSOCCLUDE ( LOWER : REF VECTOR f-¥ORB. SIGNED ° 
; 314 ton UPPER : REF VECTOR L,WORD,SIGNED 
; lod O¢ REWRITE : REF VECTOR L,WORD,SIGNED) 
: 3146 4 1 te bs 
3 Vee 03 : FUNCTIONAL DESCRIPTION: 
: 3149 09 1/ This routine inspects the relative positioning of two areas -- 
; 3150 08 1! a LOWER area and an UPPER area. It determines whether the 
: 3151 09 1! UPPER area occludes any portion of the LOWER area. If occlusion 
3 3) ¢ 19 1! is found, a rectangular area which is the occluded part is 
3; 31 1 1! isolated and its coordinates are returned as the area which 
; 138 \¢ : must be rewritten. 
: 136 14 | CALLING SEQUENCE : 
: 3158 16 3 CODE.wl.v = SMGSSOCCLUDE ( 
; 3159 1 . ¢ LOWER. rw.r, 
; 3160 18 #1! UPPER. rw.r, 
; 19) 1 ! REWRITE .wawr 
: 188 ee 
; 188 ¢ : FORMAL PARAMETERS: 
: 166 41! LOWER. raw.r Descripion of a rectangular area represent 
; 316 > oy a ‘‘lower’’ area.! 
; 3168 § - UPPER. raw.r Description of a rectangular area representing 
: 4 : } an “‘upper’’ area. 
: 3171 } 1 REWRITE.waw.r Description of a rectangular area which 
3 7 ms represents the area of the lower which is 
3 \t? 1 ! occluded by the upper ( if any). 
: 3175 4 1 i 
: 176 4 1 ! IMPLICIT INPUTS: 
; 317 . es 
; 178 ' NONE 
: 31 1 IMPLICIT OUTPUTS: 
3; 3181 1! 
oi EE ellen 
: 31 4¢ 1 ' ROUTINE VALUE 
site ar 
; 43 i SIDE EFFECTS: 
: 31 47 1: NONE 
: 9 7. a 
: 19¢ 50 BEGIN 
; 319 1 LITERAL 
3: 319% § ROW_START = 9. 
; 3195 NUM_ROW = 1, 
: 196 4 COL_START = ¢: 
; 319 5 NUM_COL = 5; 


be cat 
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O78 SMGOCCLUDE = Check for occlusion te 3r3et= 1982 #3343549 UeMGRTL BUGSRCISMGD] SOUT .832; 1 Page 33) 


'¢ 
Calculate the other bounds of the specified rectangles. 


LOWER_BOTTOM ACY = .LOWER_ROW_START + .LOWER_NO_ROW 
LOWER-RIGHT COL = .LOWER-COL"START + .LOWER-NO-COL 
UPPER-BOTTOM_ROW = .UPPER-ROWSTART + . 
UPPER-RIGHT_COL = .UPPER-COL_START + . 


Cc 
wv 
wv 
m 
20 
z' 
U 
4 
< 
seoee 
ed 
Pete te te 


t+ 
: Assume no occlusion occurs until it proves otherwise. 


STATUS = 0; 


198 ‘ 
199 3 LOCAL : 
ANS ; 
1 35 STATUS 
: 6 LOWER_BOTTOM_ROW: SIGNED, ; 
261 LOWER"RIGHT COL: SIGNED ; 
6¢ UPPER-BOTTOM_ROW: SIGNEO, ; 
5 63 UPPER-RIGHT_COL: SIGNED; 
0 6 MACRO 
08 LOWER_ROW_START = LOWER CROW_STARTIZ, ; 
09 6 LOWERNO = LOWER CNUMTROW)S : 
0 68 LOWER-COC_START = LOWER CCOL-STARTIZ, : 
1 $9 LOWER-NO_COL = LOWER CNUMCOLJZ, 
18 71 UPPER_ROW_START = UPPER CROW STARTI2, : 
14 ce UPPER-NO_ROW = UPPER CNUMTROW]S ; 
15 7 UPPER COC_START = UPPER CCOL-STARTIS, ; 
16 es UPPER-NO_COL = UPPER CNUM~COLJZ, ; 
18 7 REWRITE_ROW_ START = REWRITE [ROW_STARTIX, ; 
19 7 REWRITE-NO_ROW = REWRITE CNUM~ROWJ% 3 
0 7 REWRITE-COL_ START = REWRITE CCOL-STARTIZ, ; 
? EWRITE-NO_COL = REWRITE CNUM~COLI3; ; 
; 
5 


'¢ 
! Check for relative position of upper left-hand corner of UPPER 
rectangle with respect to LOWER rectangle. 


ANS = SMGSSPOINT_IN_RECT_R3 (UPPER_COL_START, 1x4 
UPPER-ROW-START, i v4 


LSSSLSESRINLSSEVSAFSVSS 


CASE .ANS FROM 0 TO 10 OF 
SET 


(0}:BEGIN 
REWRITE _ROW_START = .UPPER_ROW START; 
REWRITE-COL-START = .UPPER-COL-START; 


i Check relative position of lower right-hand corner of 

; UPPER rectangle with respect to LOWER rectangle. 

ANS = SMGSSPOINT_IN_RECT_R3 (UPPER_RIGHT COL, 1 x] 
UPPER~BOTTOR_ROW, i vq 


SPBSRISPLAY OUT 


” Se Ge Fe Be Se Se Ge Se Se Ge Se Se Se Ge Ge Se Ge Fe Ge Ge Ge FF Ge Se SF Gs Ge Ge Se Gs Ge Ge Ge Se Se Se GF TH SS Ss Se FH SE SH Oe Se Se SF SFOs Se Se Se Se Se eens 


WAAL NIA AAA AA PPPOPPIPUNUPPR 


DEO ODNA MAE WII OS ODNAMNE WN 9 OONAUE WN OOOO EU OOONOUE WW 


BES SMALE & FMAM & FHA. AAA AAA APO WWI BB BWA BBWAA BPA BPI 
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SMGSDISPLAY_OUTPUT = Output Virtual Displ :- “1 £4934 . 
SMGOCCLUDE = Check for-crctuston s setays oe eS et ge At 


-Oct-1 
LOWER); 


SMGRTL.BU 


ie «ANS FROM 0 TO 6 OF 


(0):BEGIN 
REWRITE_NO_ROW = .UPPER_NO_ROW; 
REWRITE-NO-COL = .UPPER"NO~ COL; 


C 
s 


END; 
(2]:BEGIN 
REWRITE_NO_ROW = .UPPER_NO_ROW:; 
REWRITE-NO_COL = ,LOWERTRIGHT_COL -.UPPER_COL_START+1; 
(4]:BFGIN 
REWRITE_NO_ROW = .LOWER_BOTTOM_ROW -.UPPER_ROW_START+1; 
REWRITE-NO-COL = .UPPER-NO_COL: 
END; 
(6]:BEGIN 
REWRITE_NO_ROW = .LOWER_BOTTOM_ROW -.UPPER_ROW_START+1; 
REWRITE-NO-COL = .LOWER-RIGH® COL - .UPPERTCUL“START#1: 


END; 
01,3659; RETURN (SMGS_FATERRLIB); 


TES; 
END; 


C1):BEG 


IN 
REWRITE _ROW_START = .UPPER_ROW_START; 
REWRITE COL-START = -LOWERTCOL-START; 


i Check relative poet ston of lower right-hand corner of 
UPPER rectangle with respect to lower rectangle. 


ANS = SMGSSPOINT_IN_RECT_R3 (UPPER _RIGHT COL, : x1 
UPPER GOT TOR_ROw, ! ¥1 


cage -ANS FROM 0 TO 6 OF 


C0] :BEGIN 
REWRITE_NO_ROW = .UPPER_NO. ROW; 
REWRITE -NO_COL = ,UPPERRIGHT_COL = .LOWER_COL_START +1; 


(1): RETURN (.STATUS); 


(2]:BEGIN 
REWRITE_NO_ROW = .UPPER_NO_ROW; 
REWRITE_NO_COL = .LOWER_NO_COL; 
END; 
(4]:BEGIN 
REWRITE _NO_ROW = .LOWER_BOTTOM ROW -.UPPER_ROW START+1; 
REWRITE NO_COL = -UPPER_RIGHT_COL ~. LOWER_COL_START+1; 


=742 
ISOUT.832;1 


H 14 
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GOCCLUDE = Check for occlusion Mebs sous Page 33 


ss-3 
SMGRTL.BUGSRCJSMGDISOUT.832; 1 
(5): | RETURN (.STATUS); 
(6]:BEGIN 
REWRITE_NO_ROW = .LOWER_BOTTOM_ROW -.UPPER_ROW_START#1; 
REWRIT =NO-COL = .LOWER-NO_COL; 
(3): RETURN (SMGS_FATERRLIB); 


TES 
END; 


C2]: RETURN (.STATUS); 

(4): RETURN (STATUS); 

(5]: RETURN (.STATUS); 

[6]: RETURN (STATUS); 

(8):BEGIN 
REWRITE_ROW_START = .LOWER_ROW START; 
REWRITE-COL-START = .UPPER-COL-START; 


i Check relative position of lower pigntonene corner of 
UPPER rectangle with respect to LOWER rectangle. 


ANS = SMGSSPOINT_IN_RECT_R3 (UPPER_RIGHT COL, ! x1 
UPPER BOTTOR_ROw, ! ¥1 


ol e 


OBDBNAOVES WN" OOONOULS UNO 


CASE .ANS FROM 0 TO 10 OF 


ITE_NO_ROW = .UPPER_BOTTOM_ROW -.LOWER_ROW_START+1; 
REWRITE_NO_COL = .UPPER_NO_COL; 


eal 


ROW = .UPPER_ BOTTOM ROW -.LOWER_ROW START+1; 
COL = .LOWER-RIGHT_COL = .UPPER-COL-START+1; 


(4]:BEGI 
» LOWER _NO_ROW; 
OL = .UPPER_NO_COL; 


Mn 
SSeS rit OC ODNOUE UNOS 


(6): N 


BEG! 
REWRITE_NO_ROW = .LOWER_NO_ROW; 

REWRITE-NO-COL = .LOWER-RIGHT_COL -.UPPER_COL_START+1; 
(8): ‘RETURN (.STATUS); 

(103: RETURN (.STATUS); 


(1,3.5,7,9]: RETURN (SMGS_FATERRLIB); 


wooono 
oo w 
POPNOW BE HUE BBWS FEMA & FANNIN IAA AAD POPIPIPIPIPRI WWI & PW 


Be Se Se Se Se Se Ge Se Fe Ge Se Ge Ge Fe Se Se Ge Fe Fe Ge Se Ge Se Fe Ge Fe Se Gs Se Fe Se Se SF Se Se Fe Se Se Ss Se Se Ss Se Os Se Se Se be Seteee ee Ge Se ee teas 
Se Ge Ge Ge Se Se Be Ge Se Se Ge Ge Ge Ge Ge Ge Ge Se Ge Ge Ge Ge Ge Ge Se Ge Ge Ge Ge Fe Se Se Se Ge Se Se Se Ge Ge Be Ge SE Se Ge Se Ge Se Se Se Se Ge Ge Ge Se Se Ge ae 


—_tn 
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case -ANS FROM 0 TO 10 OF 


CO]:BEGIN 
REWRITE_NO_ROW = .UPPER_BOTTOM_ROW -.LOWER_ROW START+1; 
REWRITE _NO_COL = ,UPPER_RIGHT_COL -.LOWER_COL_START+1; 


4 

4 TES; 

r END; 

431 (9]:BEGIN 

4 § REWRITE _ROW_START = .LOWER_ROW_START; 

r ? REWRITE COL_START = ,LOWER_COL_START; 

435 i Check relative position of lower eigntcnené corner of 
r § } UPPER rectangle with respect to LOWER rectangle. 

4 8 ANS = SMGSSPOINT_IN_RECT_R3 (UPPER_RIGHT COL, ' x4 
4 UPPER-BOTTOM_ROW, ' yt 
440 - LOWER); 

rs 1 

28 

444 

445 


SELES 


C1): RETURN (.STATUS); 


(2):BEGIN 
REWRITE_NO_ROW = .UPPER_BOTTOM_ROW -.LOWER_ROW_START+1; 
REWRITE-NO_COL = .LOWER-NO_COL; 


C10]: RETURN (.STATUS); 
(3,7): RETURN (SMGS$_FATERRLIB); 
TES; 
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